headers. Tiny patch from Andre Srinivasan <andre@e2open.com>.
+2003-10-29 Simon Josefsson <jas@extundo.com>
+
+ * message.el (message-forward-make-body-plain): Remove ignored
+ headers. Tiny patch from Andre Srinivasan <andre@e2open.com>.
+
2003-10-28 Jesper Harder <harder@ifa.au.dk>
* message.el (message-forward-subject-name-subject)
2003-10-28 Jesper Harder <harder@ifa.au.dk>
* message.el (message-forward-subject-name-subject)
(goto-char (point-max)))
(setq e (point))
(insert
(goto-char (point-max)))
(setq e (point))
(insert
- "\n-------------------- End of forwarded message --------------------\n")))
+ "\n-------------------- End of forwarded message --------------------\n")
+ (when (and (not current-prefix-arg)
+ message-forward-ignored-headers)
+ (save-restriction
+ (narrow-to-region b e)
+ (goto-char b)
+ (narrow-to-region (point)
+ (or (search-forward "\n\n" nil t) (point)))
+ (message-remove-header message-forward-ignored-headers t)))))
(defun message-forward-make-body-mime (forward-buffer)
(insert "\n\n<#part type=message/rfc822 disposition=inline raw=t>\n")
(defun message-forward-make-body-mime (forward-buffer)
(insert "\n\n<#part type=message/rfc822 disposition=inline raw=t>\n")