From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: Fri, 19 Oct 2001 10:10:48 +0000 (+0000)
Subject: 2001-10-19  Per Abrahamsen  <abraham@dina.kvl.dk>
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=0f6009b3c93a1f63b09eb690f0b486cd86391338

2001-10-19  Per Abrahamsen  <abraham@dina.kvl.dk>

	* message.el (message-do-auto-fill): New version that does not
	rely on text properties, by Simon Josefsson <jas@extundo.com>.
	(message-setup-1): Removed the `message-field' property.

	* gnus-draft.el (gnus-draft-edit-message): Removed the
	`message-field' property.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c508c464..cbf04b130 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,18 @@
+2001-10-19  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* message.el (message-do-auto-fill): New version that does not
+	rely on text properties, by Simon Josefsson <jas@extundo.com>. 
+	(message-setup-1): Removed the `message-field' property.
+
+	* gnus-draft.el (gnus-draft-edit-message): Removed the
+	`message-field' property.
+
 2001-10-19  Per Abrahamsen  <abraham@dina.kvl.dk>
 
 	* gnus-draft.el (gnus-draft-edit-message): Change `field' to
 	`message-field'.  The `field' property has a special significance in
 	Emacs 21.
+
 	* message.el (message-send, message-setup-1): Ditto.
 
 2001-10-18  Simon Josefsson  <jas@extundo.com>
diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 59ee70f09..6b30560a0 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -102,8 +102,7 @@
     (save-excursion
       (save-restriction
 	(message-narrow-to-headers)
-	(message-remove-header "date")
-	(put-text-property (point-min) (point-max) 'message-field 'header)))
+	(message-remove-header "date")))
     (save-buffer)
     (let ((gnus-verbose-backends nil))
       (gnus-request-expire-articles (list article) group t))
diff --git a/lisp/message.el b/lisp/message.el
index 1e66446e5..765473b5d 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1933,8 +1933,7 @@ Prefix arg means justify as well."
 
 (defun message-do-auto-fill ()
   "Like `do-auto-fill', but don't fill in message header."
-  (unless (text-property-any (gnus-point-at-bol) (point)
-			     'message-field 'header)
+  (when (> (point) (save-excursion (rfc822-goto-eoh)))
     (do-auto-fill)))
 
 (defun message-insert-signature (&optional force)
@@ -3991,9 +3990,6 @@ than 988 characters long, and if they are not, trim them until they are."
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
   (run-hooks 'message-setup-hook)
-  (save-restriction
-    (message-narrow-to-headers)
-    (put-text-property (point-min) (point-max) 'field 'header))
   (message-position-point)
   (undo-boundary))