From efe157492bb5df3bd00f5399a5af4eab9d9946d9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 19 Oct 2001 08:12:01 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-draft.el | 4 ++-- lisp/message.el | 3 ++- 3 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e58570e..63977e8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-10-19 Per Abrahamsen + + * 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 * gnus-sum.el (gnus-group-make-articles-read): Call g-r-set-mark diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index 2cad719..20660b7 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -1,5 +1,5 @@ ;;; gnus-draft.el --- draft message support for Semi-gnus -;; Copyright (C) 1997, 1998, 1999, 2000 +;; Copyright (C) 1997, 1998, 1999, 2000, 2001 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -104,7 +104,7 @@ (save-restriction (message-narrow-to-headers) (message-remove-header "date") - (put-text-property (point-min) (point-max) 'field 'header))) + (put-text-property (point-min) (point-max) 'message-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 bd0265f..fe109bb 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -2202,7 +2202,8 @@ 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) 'field 'header) + (unless (text-property-any (gnus-point-at-bol) (point) + 'message-field 'header) (do-auto-fill))) (defun message-insert-signature (&optional force) -- 1.7.10.4