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

(rmail-clear-headers): Don't throw an error

Browse source 
if rmail-ignored-headers is nil.
(rmail-retry-failure): Bind rmail-ignored-headers and
rmail-displayed-headers to nil.
This commit is contained in:
Gerd Moellmann 2000-07-07 14:14:08 +00:00
parent 2f72fd2f68
commit bdbeb193c4
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/mail/rmail.el
View file

@ -1834,9 +1834,10 @@ Otherwise, delete all header fields whose names match `rmail-ignored-headers'."
(or ignored-headers (setq ignored-headers rmail-ignored-headers))
(save-restriction
(narrow-to-region (point-min) (point))
(while (progn
(goto-char (point-min))
(re-search-forward ignored-headers nil t))
(while (and ignored-headers
(progn
(goto-char (point-min))
(re-search-forward ignored-headers nil t)))
(beginning-of-line)
(delete-region (point)
(if (re-search-forward "\n[^ \t]" nil t)
@ -3193,7 +3194,9 @@ specifying headers which should not be copied into the new message."
;; Insert original text as initial text of new draft message.
;; Bind inhibit-read-only since the header delimiter
;; of the previous message was probably read-only.
(let ((inhibit-read-only t))
(let ((inhibit-read-only t)
rmail-displayed-headers
rmail-ignored-headers)
(erase-buffer)
(insert-buffer-substring rmail-this-buffer bounce-start bounce-end)
(goto-char (point-min))