diff options
| author | Richard M. Stallman | 1994-09-24 04:20:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-24 04:20:22 +0000 |
| commit | 423c0dfa27e08de36fa68331130943166823a2ef (patch) | |
| tree | 11ebfc768cacae15677e14d963e04711bd1fd1a9 | |
| parent | e7070c01b1e45a27ac00d4e76a4d7f4231bd62c6 (diff) | |
| download | emacs-423c0dfa27e08de36fa68331130943166823a2ef.tar.gz emacs-423c0dfa27e08de36fa68331130943166823a2ef.zip | |
(rmail-reformat-message): Run mail-message-filter
before calling rmail-clear-headers.
| -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." | |||
| 1162 | (insert str "*** EOOH ***\n") | 1162 | (insert str "*** EOOH ***\n") |
| 1163 | (narrow-to-region (point) (- (buffer-size) delta))) | 1163 | (narrow-to-region (point) (- (buffer-size) delta))) |
| 1164 | (goto-char (point-min)) | 1164 | (goto-char (point-min)) |
| 1165 | (if rmail-ignored-headers (rmail-clear-headers)) | 1165 | (if rmail-message-filter (funcall rmail-message-filter)) |
| 1166 | (if rmail-message-filter (funcall rmail-message-filter)))) | 1166 | (if rmail-ignored-headers (rmail-clear-headers)))) |
| 1167 | 1167 | ||
| 1168 | (defun rmail-clear-headers (&optional ignored-headers) | 1168 | (defun rmail-clear-headers (&optional ignored-headers) |
| 1169 | (or ignored-headers (setq ignored-headers rmail-ignored-headers)) | 1169 | (or ignored-headers (setq ignored-headers rmail-ignored-headers)) |