2000-10-13 12:01:15 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-send-mail-partially): Replace the header
	 delimiter with a blank line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e284164..a096b16 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-13 12:01:15  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-send-mail-partially): Replace the header
+        delimiter with a blank line.
+
 2000-10-13  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-sum.el (gnus-get-split-value): Use first match only (Ed L

diff --git a/lisp/message.el b/lisp/message.el
index 38073b4..3e5e7ed 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2206,6 +2206,12 @@ It should typically alter the sending method in some way or other."
 
 (defun message-send-mail-partially ()
   "Sendmail as message/partial."
+  ;; replace the header delimiter with a blank line
+  (goto-char (point-min))
+  (re-search-forward
+   (concat "^" (regexp-quote mail-header-separator) "\n"))
+  (replace-match "\n")
+  (run-hooks 'message-send-mail-hook)
   (let ((p (goto-char (point-min)))
        (tembuf (message-generate-new-buffer-clone-locals " message temp"))
        (curbuf (current-buffer))