mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

(rmail-copy-headers): Doc fix. Leave point at the end

Browse Source 
of the headers in the full header case.  (Bug#2073)
This commit is contained in:
Glenn Morris 2009-01-27 08:29:35 +00:00
parent 7f1a6a6fb4
commit 3b5ad65462
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

11
lisp/mail/rmail.el
View File

@ -2563,7 +2563,8 @@ Otherwise, if `rmail-displayed-headers' is non-nil, copy only
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 @@ copy all header fields whose names do not match
(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))