# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1234894232 0
# Node ID a03d069770606911b9723efc6e9272a915429e09
# Parent  1867fcb8720e09a000275990a5afdedad5360a21
(rmail-copy-headers): When copying full headers,
correctly put point at the end.

diff -r 1867fcb8720e -r a03d06977060 lisp/mail/rmail.el
--- 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))