[Emacs-diffs] emacs/lisp/mail rmail.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/02/17 18:10:33

Modified files:
        lisp/mail      : rmail.el 

Log message:
        (rmail-copy-headers): When copying full headers,
        correctly put point at the end.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.506&r2=1.507

Patches:
Index: rmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.506
retrieving revision 1.507
diff -u -b -r1.506 -r1.507
--- rmail.el    17 Feb 2009 02:37:42 -0000      1.506
+++ rmail.el    17 Feb 2009 18:10:32 -0000      1.507
@@ -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.
+
+           (let ((len (- (point-max) beg)))
            (with-current-buffer rmail-view-buffer
-             (search-forward "\n\n" nil t)))
+               (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))