* gnus-draft.el (gnus-draft-edit-message): Add text property

`field' with value `header' to message headers.
* message.el (message-setup-1): Really add text property to all of
the header, not just part of it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fe4ad3..82e7b08 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-10-16  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+       Patch by Oliver Scholz <oscholz@my.gnus.org>.
+
+       * gnus-draft.el (gnus-draft-edit-message): Add text property
+       `field' with value `header' to message headers.
+       * message.el (message-setup-1): Really add text property to all of
+       the header, not just part of it.
+
 2001-09-04 21:42:23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-group.el (gnus-group-sort-by-server): Use it.

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 1a7b3ad..c6a2193 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -102,7 +102,8 @@
     (save-excursion
       (save-restriction
        (message-narrow-to-headers)
-       (message-remove-header "date")))
+       (message-remove-header "date")
+       (put-text-property (point-min) (point-max) 'field 'header)))
     (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 255d7d7..620100a 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3943,7 +3943,6 @@ than 988 characters long, and if they are not, trim them until they are."
   (when message-default-headers
     (insert message-default-headers)
     (or (bolp) (insert ?\n)))
-  (put-text-property (point-min) (point) 'field 'header)
   (put-text-property
    (point)
    (progn
@@ -3979,6 +3978,9 @@ 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))