# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1233044975 0
# Node ID fe1cbb7012ebf6b0e11e1d73cac0f66f1b4a2576
# Parent  1bd3a37d91290db69aaf522a3e8fcea2862cb985
(rmail-copy-headers): Doc fix.  Leave point at the end
of the headers in the full header case.  (Bug#2073)

diff -r 1bd3a37d9129 -r fe1cbb7012eb lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jan 27 06:42:27 2009 +0000
+++ b/lisp/ChangeLog	Tue Jan 27 08:29:35 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-27  Glenn Morris  <rgm@gnu.org>
+
+	* mail/rmail.el (rmail-copy-headers): Doc fix.  Leave point at the end
+	of the headers in the full header case.  (Bug#2073)
+
 2009-01-27  Kenichi Handa  <handa@m17n.org>
 
 	* mail/rmail.el (rmail-get-coding-system): Re-search
diff -r 1bd3a37d9129 -r fe1cbb7012eb lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Tue Jan 27 06:42:27 2009 +0000
+++ b/lisp/mail/rmail.el	Tue Jan 27 08:29:35 2009 +0000
@@ -2563,7 +2563,8 @@
 those header fields whose names match that regexp.  Otherwise,
 copy all header fields whose names do not match
 `rmail-ignored-headers' (unless they also match
-`rmail-nonignored-headers')."
+`rmail-nonignored-headers').  Leaves point in the message viewer
+buffer at the end of the headers."
   (let ((header-start-regexp "\n[^ \t]")
 	lim)
     (with-current-buffer rmail-buffer
@@ -2579,8 +2580,12 @@
 	  (cond
 	   ;; Handle the case where all headers should be copied.
 	   ((eq rmail-header-style 'full)
-	    (prepend-to-buffer rmail-view-buffer beg (point-max)))
-	   ;; Handle the case where the headers matching the diplayed
+	    (prepend-to-buffer rmail-view-buffer beg (point-max))
+	    ;; rmail-show-message expects this function to leave point
+	    ;; at the end of the headers.
+	    (with-current-buffer rmail-view-buffer
+	      (search-forward "\n\n" nil t)))
+	   ;; Handle the case where the headers matching the displayed
 	   ;; headers regexp should be copied.
 	   ((and rmail-displayed-headers (null ignored-headers))
 	    (while (not (eobp))