X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=contrib%2Fnotmuch-pick%2Fnotmuch-pick.el;h=179076d8ac5e5360a5ad7232d1b4692c39aa2925;hb=3c3304131df66acfb7b74f56d658a3d57f7af487;hp=0aa651ee7f4513a19d5732058ccc630c9dc78059;hpb=cc8c407dfc9b5e50b02692077db589d5365bbf1f;p=notmuch diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el index 0aa651ee..179076d8 100644 --- a/contrib/notmuch-pick/notmuch-pick.el +++ b/contrib/notmuch-pick/notmuch-pick.el @@ -461,7 +461,7 @@ Does NOT change the database." ;; Since we are only displaying one message do not indent. (let ((notmuch-show-indent-messages-width 0) (notmuch-show-only-matching-messages t)) - (setq buffer (notmuch-show id nil nil nil)))) + (setq buffer (notmuch-show id)))) ;; We need the `let' as notmuch-pick-message-window is buffer local. (let ((window notmuch-pick-message-window)) (with-current-buffer buffer @@ -480,7 +480,7 @@ Does NOT change the database." (when id ;; We close the window to kill off un-needed buffers. (notmuch-pick-close-message-window) - (notmuch-show id nil nil nil)))) + (notmuch-show id)))) (defun notmuch-pick-show-message (arg) "Show the current message. @@ -542,8 +542,7 @@ message will be \"unarchived\", i.e. the tag changes in `notmuch-archive-tags' will be reversed." (interactive "P") (when notmuch-archive-tags - (apply 'notmuch-pick-tag - (notmuch-tag-change-list notmuch-archive-tags unarchive)))) + (notmuch-pick-tag (notmuch-tag-change-list notmuch-archive-tags unarchive)))) (defun notmuch-pick-archive-message-then-next (&optional unarchive) "Archive the current message and move to next matching message."