Mercurial > emacs
changeset 9431:65e65fe6e8f3
(rmail-show-message): New argument no-summary.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 11 Oct 1994 04:42:10 +0000 |
| parents | 89e30b86622a |
| children | a8cd4563a8ae |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue Oct 11 02:48:53 1994 +0000 +++ b/lisp/mail/rmail.el Tue Oct 11 04:42:10 1994 +0000 @@ -1441,7 +1441,7 @@ (interactive) (rmail-show-message rmail-current-message)) -(defun rmail-show-message (&optional n) +(defun rmail-show-message (&optional n no-summary) "Show message number N (prefix argument), counting from start of file. If summary buffer is currently displayed, update current message there also." (interactive "p") @@ -1482,10 +1482,12 @@ ;; If there is a summary buffer, try to move to this message ;; in that buffer. But don't complain if this message ;; is not mentioned in the summary. - (if (rmail-summary-exists) - (let ((curr-msg rmail-current-message)) - (rmail-select-summary - (rmail-summary-goto-msg curr-msg t t)))) + ;; Don't do this at all if we were called on behalf + ;; of cursor motion in the summary buffer. + (and (rmail-summary-exists) (not no-summary) + (let ((curr-msg rmail-current-message)) + (rmail-select-summary + (rmail-summary-goto-msg curr-msg t t)))) (if blurb (message blurb))))))