From: Richard M. Stallman Date: Tue, 11 Oct 1994 04:42:10 +0000 (+0000) Subject: (rmail-show-message): New argument no-summary. X-Git-Tag: emacs-19.34~6423 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdf0360080cf821616311c70bceaf7e80a7e84c8;p=emacs.git (rmail-show-message): New argument no-summary. --- diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 0675d517f36..2d409b6ea11 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1441,7 +1441,7 @@ change the invisible header text." (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 summary buffer is currently displayed, update current message there also." ;; 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))))))