diff options
| -rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 50ea344785f..7b241a0b1ea 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -2650,8 +2650,11 @@ buffer to the end of the headers." | |||
| 2650 | (prepend-to-buffer rmail-view-buffer beg (point-max)) | 2650 | (prepend-to-buffer rmail-view-buffer beg (point-max)) |
| 2651 | ;; rmail-show-message-1 expects this function to leave point | 2651 | ;; rmail-show-message-1 expects this function to leave point |
| 2652 | ;; at the end of the headers. | 2652 | ;; at the end of the headers. |
| 2653 | (with-current-buffer rmail-view-buffer | 2653 | |
| 2654 | (search-forward "\n\n" nil t))) | 2654 | (let ((len (- (point-max) beg))) |
| 2655 | (with-current-buffer rmail-view-buffer | ||
| 2656 | (goto-char (1+ len))))) | ||
| 2657 | |||
| 2655 | ;; Handle the case where the headers matching the displayed | 2658 | ;; Handle the case where the headers matching the displayed |
| 2656 | ;; headers regexp should be copied. | 2659 | ;; headers regexp should be copied. |
| 2657 | ((and rmail-displayed-headers (null ignored-headers)) | 2660 | ((and rmail-displayed-headers (null ignored-headers)) |