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

emacs: split notmuch-show-apply-state

Browse source 
Separate out a notmuch-show-goto-msg-id sub-function from
notmuch-show-apply-state. There should be no functional change but the
next patch will call the new function.
This commit is contained in:
Mark Walters 2015-06-13 09:08:08 +01:00 committed by David Bremner
parent 6b440a0adf
commit d4053be21a
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
emacs/notmuch-show.el
View file

@ -1281,6 +1281,16 @@ This includes:
")") ")")
notmuch-show-thread-id)) notmuch-show-thread-id))
(defun notmuch-show-goto-message (msg-id)
"Go to message with msg-id."
(goto-char (point-min))
(unless (loop if (string= msg-id (notmuch-show-get-message-id))
return t
until (not (notmuch-show-goto-message-next)))
(goto-char (point-min))
(message "Message-id not found."))
(notmuch-show-message-adjust))
(defun notmuch-show-apply-state (state) (defun notmuch-show-apply-state (state)
"Apply STATE to the current buffer. "Apply STATE to the current buffer.
@ -1298,13 +1308,7 @@ This includes:
until (not (notmuch-show-goto-message-next))) until (not (notmuch-show-goto-message-next)))
;; Go to the previously open message. ;; Go to the previously open message.
(goto-char (point-min)) (notmuch-show-goto-message current)))
(unless (loop if (string= current (notmuch-show-get-message-id))
return t
until (not (notmuch-show-goto-message-next)))
(goto-char (point-min))
(message "Previously current message not found."))
(notmuch-show-message-adjust)))
(defun notmuch-show-refresh-view (&optional reset-state) (defun notmuch-show-refresh-view (&optional reset-state)
"Refresh the current view. "Refresh the current view.