Commit c7b5ca27 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 81931ba1
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment