mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-goto-msg): Use unwind-protect to go

Browse source 
back to summary, and go back to the window that was selected before.

(rmail-summary-rmail-update): Special handling for eob.
This commit is contained in:
Richard M. Stallman 1993-12-23 03:25:40 +00:00
parent d2fc297c32
commit 857ff384c0
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/mail/rmailsum.el
View file

@ -528,6 +528,9 @@ Commands for sorting the summary:
(if (get-buffer-window rmail-buffer)
(let (buffer-read-only)
(save-excursion
;; If at end of buffer, pretend we are on the last text line.
(if (eobp)
(forward-line -1))
(beginning-of-line)
(skip-chars-forward " ")
(let ((beg (point))
@ -744,9 +747,11 @@ Commands for sorting the summary:
(beginning-of-line)
(if skip-rmail
nil
(pop-to-buffer buf)
(rmail-show-message n)
(pop-to-buffer rmail-summary-buffer))))
(let ((selwin (selected-window)))
(unwind-protect
(progn (pop-to-buffer buf)
(rmail-show-message n))
(select-window selwin))))))
(defun rmail-summary-scroll-msg-up (&optional dist)
"Scroll other window forward."