procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-summary-goto-msg): Preserve the current buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1994-09-13 04:14:00 +00:00
parent 81931ba19a
commit c7b5ca27bf
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmailsum.el
View file

@ -780,7 +780,8 @@ Commands for sorting the summary:
(if (consp n) (setq n (prefix-numeric-value n)))
(if (eobp) (forward-line -1))
(beginning-of-line)
(let ((buf rmail-buffer)
(let ((obuf (current-buffer))
(buf rmail-buffer)
(cur (point))
message-not-found
(curmsg (string-to-int
@ -832,7 +833,9 @@ Commands for sorting the summary:
(unwind-protect
(progn (pop-to-buffer buf)
(rmail-show-message n))
(select-window selwin))))))
(select-window selwin)
;; The actions above can alter the current buffer. Preserve it.
(set-buffer obuf))))))
(defun rmail-summary-scroll-msg-up (&optional dist)
"Scroll the Rmail window forward."