mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-show-message): New argument no-summary.

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-11 04:42:10 +00:00
parent ca59062610
commit bdf0360080
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/rmail.el
View file

@ -1441,7 +1441,7 @@ change the invisible header text."
(interactive) (interactive)
(rmail-show-message rmail-current-message)) (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. "Show message number N (prefix argument), counting from start of file.
If summary buffer is currently displayed, update current message there also." If summary buffer is currently displayed, update current message there also."
(interactive "p") (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 ;; If there is a summary buffer, try to move to this message
;; in that buffer. But don't complain if this message ;; in that buffer. But don't complain if this message
;; is not mentioned in the summary. ;; is not mentioned in the summary.
(if (rmail-summary-exists) ;; Don't do this at all if we were called on behalf
(let ((curr-msg rmail-current-message)) ;; of cursor motion in the summary buffer.
(rmail-select-summary (and (rmail-summary-exists) (not no-summary)
(rmail-summary-goto-msg curr-msg t t)))) (let ((curr-msg rmail-current-message))
(rmail-select-summary
(rmail-summary-goto-msg curr-msg t t))))
(if blurb (if blurb
(message blurb)))))) (message blurb))))))