From: yamaoka <yamaoka>
Date: Tue, 16 Oct 2001 01:09:29 +0000 (+0000)
Subject: * message.el (message-send): Remove the text property `field' from the
X-Git-Tag: t-gnus-6_15_4-08-quimby-last-~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=08d893aa8f92f5ff709fba20c6796771bf0dbc46;p=elisp%2Fgnus.git-

* message.el (message-send): Remove the text property `field' from the
 encoding buffer.
---

diff --git a/ChangeLog b/ChangeLog
index f30045a..b632542 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/message.el (message-send): Remove the text property `field'
+	from the encoding buffer.
+
 2001-10-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-start.el (gnus-re-read-newsrc-el-file): Use
diff --git a/lisp/message.el b/lisp/message.el
index f945794..4136f3b 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2770,9 +2770,11 @@ It should typically alter the sending method in some way or other."
 	(set-buffer message-encoding-buffer)
 	(erase-buffer)
 	;; ;; Avoid copying text props.
-	;; T-gnus change: copy all text props from the editing buffer
-	;; into the encoding buffer.
+	;; T-gnus change: copy all text props, except for `field', from
+	;; the editing buffer into the encoding buffer.  `field' is the
+	;; special text property on Emacs 21, see NEWS for details.
 	(insert-buffer message-edit-buffer)
+	(put-text-property (point-min) (point-max) 'field nil)
 	(funcall message-encode-function)
 	(while (and success
 		    (setq elem (pop alist)))