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 7c508c4..cbf04b1 100644 (file)
--- 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 59ee70f..6b30560 100644 (file)
--- 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 1e66446..765473b 100644 (file)
--- 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))