debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Push the cursor to point-max on n' or N' at the end of a thread

Browse source 
Sebastian pointed out that the pre-JSON UI would move the cursor to
the end of the buffer if `n' or `N' is hit when on the last (unread)
message. Mimic that behaviour in the new UI.
This commit is contained in:
David Edmondson 2010-04-22 12:20:16 +01:00 committed by Carl Worth
parent 57926bc7b0
commit 7135a8bcbf
1 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
emacs/notmuch-show.el
View file

@ -30,9 +30,9 @@
(require 'notmuch-lib) (require 'notmuch-lib)
(require 'notmuch-query) (require 'notmuch-query)
(require 'notmuch-wash) (require 'notmuch-wash)
(require 'notmuch-mua)
(declare-function notmuch-call-notmuch-process "notmuch" (&rest args)) (declare-function notmuch-call-notmuch-process "notmuch" (&rest args))
(declare-function notmuch-reply "notmuch" (query-string))
(declare-function notmuch-fontify-headers "notmuch" nil) (declare-function notmuch-fontify-headers "notmuch" nil)
(declare-function notmuch-select-tag-with-completion "notmuch" (prompt &rest search-terms)) (declare-function notmuch-select-tag-with-completion "notmuch" (prompt &rest search-terms))
(declare-function notmuch-search-show-thread "notmuch" nil) (declare-function notmuch-search-show-thread "notmuch" nil)
@ -507,7 +507,7 @@ function is used. "
(define-key map (kbd "M-TAB") 'notmuch-show-previous-button) (define-key map (kbd "M-TAB") 'notmuch-show-previous-button)
(define-key map (kbd "TAB") 'notmuch-show-next-button) (define-key map (kbd "TAB") 'notmuch-show-next-button)
(define-key map "s" 'notmuch-search) (define-key map "s" 'notmuch-search)
(define-key map "m" 'message-mail) (define-key map "m" 'notmuch-mua-mail)
(define-key map "f" 'notmuch-show-forward-message) (define-key map "f" 'notmuch-show-forward-message)
(define-key map "r" 'notmuch-show-reply) (define-key map "r" 'notmuch-show-reply)
(define-key map "|" 'notmuch-show-pipe-message) (define-key map "|" 'notmuch-show-pipe-message)
@ -804,20 +804,22 @@ any effects from previous calls to
(defun notmuch-show-reply () (defun notmuch-show-reply ()
"Reply to the current message." "Reply to the current message."
(interactive) (interactive)
(notmuch-reply (notmuch-show-get-message-id))) (notmuch-mua-reply (notmuch-show-get-message-id)))
(defun notmuch-show-forward-message () (defun notmuch-show-forward-message ()
"Forward the current message." "Forward the current message."
(interactive) (interactive)
(with-current-notmuch-show-message (with-current-notmuch-show-message
(message-forward))) (notmuch-mua-forward-message)))
(defun notmuch-show-next-message () (defun notmuch-show-next-message ()
"Show the next message." "Show the next message."
(interactive) (interactive)
(notmuch-show-goto-message-next) (if (notmuch-show-goto-message-next)
(progn
(notmuch-show-mark-read) (notmuch-show-mark-read)
(notmuch-show-message-adjust)) (notmuch-show-message-adjust))
(goto-char (point-max))))
(defun notmuch-show-previous-message () (defun notmuch-show-previous-message ()
"Show the previous message." "Show the previous message."
@ -829,10 +831,14 @@ any effects from previous calls to
(defun notmuch-show-next-open-message () (defun notmuch-show-next-open-message ()
"Show the next message." "Show the next message."
(interactive) (interactive)
(while (and (notmuch-show-goto-message-next) (let (r)
(while (and (setq r (notmuch-show-goto-message-next))
(not (notmuch-show-message-visible-p)))) (not (notmuch-show-message-visible-p))))
(if r
(progn
(notmuch-show-mark-read) (notmuch-show-mark-read)
(notmuch-show-message-adjust)) (notmuch-show-message-adjust))
(goto-char (point-max)))))
(defun notmuch-show-previous-open-message () (defun notmuch-show-previous-open-message ()
"Show the previous message." "Show the previous message."