diff options
| -rw-r--r-- | lisp/mail/rmailsum.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 7191d35cfe3..2e77e44ce5a 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -528,6 +528,9 @@ Commands for sorting the summary: | |||
| 528 | (if (get-buffer-window rmail-buffer) | 528 | (if (get-buffer-window rmail-buffer) |
| 529 | (let (buffer-read-only) | 529 | (let (buffer-read-only) |
| 530 | (save-excursion | 530 | (save-excursion |
| 531 | ;; If at end of buffer, pretend we are on the last text line. | ||
| 532 | (if (eobp) | ||
| 533 | (forward-line -1)) | ||
| 531 | (beginning-of-line) | 534 | (beginning-of-line) |
| 532 | (skip-chars-forward " ") | 535 | (skip-chars-forward " ") |
| 533 | (let ((beg (point)) | 536 | (let ((beg (point)) |
| @@ -744,9 +747,11 @@ Commands for sorting the summary: | |||
| 744 | (beginning-of-line) | 747 | (beginning-of-line) |
| 745 | (if skip-rmail | 748 | (if skip-rmail |
| 746 | nil | 749 | nil |
| 747 | (pop-to-buffer buf) | 750 | (let ((selwin (selected-window))) |
| 748 | (rmail-show-message n) | 751 | (unwind-protect |
| 749 | (pop-to-buffer rmail-summary-buffer)))) | 752 | (progn (pop-to-buffer buf) |
| 753 | (rmail-show-message n)) | ||
| 754 | (select-window selwin)))))) | ||
| 750 | 755 | ||
| 751 | (defun rmail-summary-scroll-msg-up (&optional dist) | 756 | (defun rmail-summary-scroll-msg-up (&optional dist) |
| 752 | "Scroll other window forward." | 757 | "Scroll other window forward." |