From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 17 Feb 2009 18:10:32 +0000 (+0000)
Subject: (rmail-copy-headers): When copying full headers,
X-Git-Tag: emacs-pretest-23.0.91~179
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a34da04651d633519fdc7d151db81cbd27829da;p=emacs.git

(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 50ea344785f..7b241a0b1ea 100644
--- 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))