diff options
Diffstat (limited to 'lisp/km-mail.el')
-rw-r--r-- | lisp/km-mail.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/km-mail.el b/lisp/km-mail.el index 2effb1e..4c3104e 100644 --- a/lisp/km-mail.el +++ b/lisp/km-mail.el @@ -54,7 +54,8 @@ (defun km/notmuch-archive-all () "Call `notmuch-search-archive-thread' with whole-buffer region." (interactive) - (mark-whole-buffer) + (with-suppressed-warnings ((interactive-only mark-whole-buffer)) + (mark-whole-buffer)) (call-interactively #'notmuch-search-archive-thread)) (defun km/notmuch-thread-id-from-message-id (message-id) @@ -181,10 +182,12 @@ in the remote's \".git/config\" entry." (`notmuch-tree-mode (notmuch-tree-get-query)))) (default-value 'notmuch-search-oldest-first))) +(declare-function debbugs-gnu-current-status "debbugs-gnu" ()) ;; Modified from fucntion in Nicolas Petton's emacs configuration ;; (https://gitlab.petton.fr/nico/emacs.d/, 208407f53a) ;;;###autoload (defun km/debbugs-notmuch-select-report (&rest _) + (require 'debbugs-gnu) (let* ((status (debbugs-gnu-current-status)) (id (cdr (assq 'id status))) (merged (cdr (assq 'mergedwith status)))) |