debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +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
(goto-char (point-max))
(notmuch-pick-insert-msg msg))
(let ((msg-id (notmuch-id-to-query (plist-get msg :id))))
(when (string= msg-id notmuch-pick-target-msg)
(let ((msg-id (notmuch-id-to-query (plist-get msg :id)))
(target notmuch-pick-target-msg))
(when (or (and (not target) (plist-get msg :match))
(string= msg-id target))
(setq notmuch-pick-target-msg "found")
(goto-char (point-max))
(forward-line -1))))