From 5a34da04651d633519fdc7d151db81cbd27829da Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 17 Feb 2009 18:10:32 +0000 Subject: [PATCH] (rmail-copy-headers): When copying full headers, correctly put point at the end. --- lisp/mail/rmail.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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)) -- 2.11.4.GIT