Mercurial > emacs
changeset 30112:d2611d5071d0
(rmail-clear-headers): Don't throw an error
if rmail-ignored-headers is nil.
(rmail-retry-failure): Bind rmail-ignored-headers and
rmail-displayed-headers to nil.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 07 Jul 2000 14:14:08 +0000 |
| parents | cdd9c822e994 |
| children | 44717f85a62c |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Jul 07 13:02:53 2000 +0000 +++ b/lisp/mail/rmail.el Fri Jul 07 14:14:08 2000 +0000 @@ -1834,9 +1834,10 @@ (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 @@ ;; 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))