X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=contrib%2Fnotmuch-pick%2Fnotmuch-pick.el;h=179076d8ac5e5360a5ad7232d1b4692c39aa2925;hb=3c3304131df66acfb7b74f56d658a3d57f7af487;hp=3afdea4a9ff4228b95fc41eb4dd1564c8b13cdf4;hpb=d1a5f5c659ae49f89fd55b183389b818e55062ad;p=notmuch diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el index 3afdea4a..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." @@ -940,7 +939,6 @@ The arguments are: ;; Set up key bindings from the rest of notmuch. (define-key notmuch-common-keymap "z" 'notmuch-pick) (define-key notmuch-search-mode-map "Z" 'notmuch-pick-from-search-current-query) -(define-key notmuch-search-mode-map (kbd "M-RET") 'notmuch-pick-from-search-thread) (define-key notmuch-show-mode-map "Z" 'notmuch-pick-from-show-current-query) (message "Initialised notmuch-pick")