|author||Sean Whitton <firstname.lastname@example.org>||2018-07-24 16:55:50 +0800|
|committer||Sean Whitton <email@example.com>||2018-07-24 16:55:50 +0800|
Signed-off-by: Sean Whitton <firstname.lastname@example.org>
1 files changed, 44 insertions, 0 deletions
diff --git a/mailscripts.el b/mailscripts.el
new file mode 100644
@@ -0,0 +1,44 @@
+;;; mailscripts.el --- functions to access tools in the mailscripts package
+;; Author: Sean Whitton <email@example.com>
+;; Version: 0.1
+;; Copyright (C) 2018 Sean Whitton
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+(defun notmuch-slurp-debbug (bug &optional no-open)
+ "Slurp Debian bug with bug number BUG and open the thread in notmuch.
+If NO-OPEN, don't open the thread."
+ (interactive "sBug number: ")
+ (call-process-shell-command (concat "notmuch-slurp-debbug " bug))
+ (unless no-open
+ (notmuch-show (concat "Bug#" bug))))
+(defun notmuch-slurp-this-debbug ()
+ "When viewing a Debian bug in notmuch, download any missing messages."
+ (let ((subject (notmuch-show-get-subject)))
+ (when (string-match "Bug#\\([0-9]+\\):" subject)
+ (notmuch-slurp-debbug (match-string 1 subject) t))
+;;; mailscripts.el ends here