(message-forward-make-body): Don't use

`message-forward-ignored-headers' when doing a "raw" followup (it
is important to preserve e.g. CTE).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c215287..64e981a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-07-27  Simon Josefsson  <jas@extundo.com>
 
+       * message.el (message-forward-make-body): Don't use
+       `message-forward-ignored-headers' when doing a "raw" followup (it
+       is important to preserve e.g. CTE).
+
        * flow-fill.el (fill-flowed): Disable filladapt-mode.
 
        * gnus-sieve.el (gnus-sieve-guess-rule-for-article): Don't

diff --git a/lisp/message.el b/lisp/message.el
index 19a6f86..0a5941e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5190,7 +5190,9 @@ Optional DIGEST will use digest to forward."
                            (or (search-forward "\n\n" nil t) (point)))
          (delete-region (point-min) (point-max)))
       (when (and (not current-prefix-arg)
-                message-forward-ignored-headers)
+                message-forward-ignored-headers
+                ;; don't remove CTE, X-Gnus etc when doing "raw" forward:
+                message-forward-show-mml)
        (save-restriction
          (narrow-to-region b e)
          (goto-char b)