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

emacs-show: open excluded matches if no other matches

Browse source 
Currently emacs show does not open matching but excluded
messages. This is normally the desired behaviour but is probably not
ideal if only excluded messages match. This patch opens all the
matching (necessarily excluded) messages in this case and goes to the
first one.
This commit is contained in:
Mark Walters 2012-03-15 18:28:10 +00:00 committed by David Bremner
parent 77e128a0f0
commit 94250ac2c5
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
emacs/notmuch-show.el
View file

@ -1568,6 +1568,11 @@ to show, nil otherwise."
(notmuch-show-message-adjust))
(goto-char (point-max)))))
(defun notmuch-show-open-if-matched ()
"Open a message if it is matched (whether or not excluded)."
(let ((props (notmuch-show-get-message-properties)))
(notmuch-show-message-visible props (plist-get props :match))))
(defun notmuch-show-goto-first-wanted-message ()
"Move to the first open message and mark it read"
(goto-char (point-min))
@ -1575,9 +1580,14 @@ to show, nil otherwise."
(notmuch-show-mark-read)
(notmuch-show-next-open-message))
(when (eobp)
;; There are no matched non-excluded messages so open all matched
;; (necessarily excluded) messages and go to the first.
(notmuch-show-mapc 'notmuch-show-open-if-matched)
(force-window-update)
(goto-char (point-min))
(unless (notmuch-show-get-prop :match)
(notmuch-show-next-matching-message))))
(if (notmuch-show-message-visible-p)
(notmuch-show-mark-read)
(notmuch-show-next-open-message))))
(defun notmuch-show-previous-open-message ()
"Show the previous open message."