From 8ce0e79fd1293286d8c66d3a89a9f11677a67d9b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 16 Oct 2001 11:10:31 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-draft.el | 3 ++- lisp/message.el | 4 +++- 3 files changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1a3a66..a3284b1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2001-10-16 Kai Gro,A_(Bjohann + Patch by Oliver Scholz . + + * 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 * gnus-group.el (gnus-group-sort-by-server): Use it. diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index 4491dcf..2cad719 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -103,7 +103,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))) (message-save-drafts) (let ((gnus-verbose-backends nil)) (gnus-request-expire-articles (list article) group t)) diff --git a/lisp/message.el b/lisp/message.el index 4136f3b..99b1823 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4627,7 +4627,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 @@ -4663,6 +4662,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)) -- 1.7.10.4