debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

contrib: pick: if no target specified go to first matching message

Browse source
This commit is contained in:
Mark Walters 2013-06-30 09:55:10 +01:00 committed by David Bremner
parent 9a64b2df29
commit f9aad24f02
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
contrib/notmuch-pick/notmuch-pick.el
View file

@ -652,8 +652,10 @@ unchanged ADDRESS if parsing fails."
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(notmuch-pick-insert-msg msg)) (notmuch-pick-insert-msg msg))
(let ((msg-id (notmuch-id-to-query (plist-get msg :id)))) (let ((msg-id (notmuch-id-to-query (plist-get msg :id)))
(when (string= msg-id notmuch-pick-target-msg) (target notmuch-pick-target-msg))
(when (or (and (not target) (plist-get msg :match))
(string= msg-id target))
(setq notmuch-pick-target-msg "found") (setq notmuch-pick-target-msg "found")
(goto-char (point-max)) (goto-char (point-max))
(forward-line -1)))) (forward-line -1))))