summaryrefslogtreecommitdiff
path: root/mailscripts.el
diff options
context:
space:
mode:
Diffstat (limited to 'mailscripts.el')
-rw-r--r--mailscripts.el44
1 files changed, 44 insertions, 0 deletions
diff --git a/mailscripts.el b/mailscripts.el
new file mode 100644
index 0000000..e5aceb1
--- /dev/null
+++ b/mailscripts.el
@@ -0,0 +1,44 @@
+;;; mailscripts.el --- functions to access tools in the mailscripts package
+
+;; Author: Sean Whitton <spwhitton@spwhitton.name>
+;; 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/>.
+
+;;; Code:
+
+(require 'notmuch)
+
+(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."
+ (interactive)
+ (let ((subject (notmuch-show-get-subject)))
+ (when (string-match "Bug#\\([0-9]+\\):" subject)
+ (notmuch-slurp-debbug (match-string 1 subject) t))
+ (notmuch-refresh-this-buffer)))
+
+(provide 'mailscripts)
+
+;;; mailscripts.el ends here