procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-copy-headers): When copying full headers,

Browse source 
correctly put point at the end.
This commit is contained in:
Richard M. Stallman 2009-02-17 18:10:32 +00:00
parent 2017951613
commit 5a34da0465
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmail.el
View file

@ -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))