diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-12-23 19:44:22 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-12-24 00:25:22 -0500 |
| commit | 991b0bb3a1d86b5ef2347597ca85a0fff5148c3b (patch) | |
| tree | 063c390b0f8774d57c9ece0ffed684066f8e59ba /lisp/km-mail.el | |
| parent | 5b7727428bcb0c4b79bb766097c7936cee98a5bb (diff) | |
| download | emacs.d-991b0bb3a1d86b5ef2347597ca85a0fff5148c3b.tar.gz | |
Silence byte-compiler
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)))) |