(rmail-copy-headers): When copying full headers,

correctly put point at the end.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 50ea344785f991189dbae8df030c8f6b86e3dca7..7b241a0b1eac44fb482b58366a51af7b4caa4b73 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2650,8 +2650,11 @@ buffer to the end of the headers."
            (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))