changeset 9062:1f55bc3c629e

(rmail-reformat-message): Run mail-message-filter before calling rmail-clear-headers.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Sep 1994 04:20:22 +0000
parents 10b791eec6dc
children d6913bc11bb2
files lisp/mail/rmail.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Sat Sep 24 04:15:03 1994 +0000
+++ b/lisp/mail/rmail.el	Sat Sep 24 04:20:22 1994 +0000
@@ -1162,8 +1162,8 @@
       (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))