Mercurial > emacs
changeset 102073:a03d06977060
(rmail-copy-headers): When copying full headers,
correctly put point at the end.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Feb 2009 18:10:32 +0000 |
| parents | 1867fcb8720e |
| children | 7d06f7ae4b3e |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue Feb 17 16:49:40 2009 +0000 +++ b/lisp/mail/rmail.el Tue Feb 17 18:10:32 2009 +0000 @@ -2650,8 +2650,11 @@ (prepend-to-buffer rmail-view-buffer beg (point-max)) ;; rmail-show-message-1 expects this function to leave point ;; at the end of the headers. - (with-current-buffer rmail-view-buffer - (search-forward "\n\n" nil t))) + + (let ((len (- (point-max) beg))) + (with-current-buffer rmail-view-buffer + (goto-char (1+ len))))) + ;; Handle the case where the headers matching the displayed ;; headers regexp should be copied. ((and rmail-displayed-headers (null ignored-headers))