diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-24 04:20:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-24 04:20:22 +0000 |
| commit | 423c0dfa27e08de36fa68331130943166823a2ef (patch) | |
| tree | 11ebfc768cacae15677e14d963e04711bd1fd1a9 /lisp | |
| parent | e7070c01b1e45a27ac00d4e76a4d7f4231bd62c6 (diff) | |
| download | emacs-423c0dfa27e08de36fa68331130943166823a2ef.tar.gz | |
(rmail-reformat-message): Run mail-message-filter
before calling rmail-clear-headers.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a039dea4cdb..114a7917132 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1162,8 +1162,8 @@ This function runs `rmail-get-new-mail-hook' before saving the updated file." (insert str "*** EOOH ***\n") (narrow-to-region (point) (- (buffer-size) delta))) (goto-char (point-min)) - (if rmail-ignored-headers (rmail-clear-headers)) - (if rmail-message-filter (funcall rmail-message-filter)))) + (if rmail-message-filter (funcall rmail-message-filter)) + (if rmail-ignored-headers (rmail-clear-headers)))) (defun rmail-clear-headers (&optional ignored-headers) (or ignored-headers (setq ignored-headers rmail-ignored-headers)) |