From: yamaoka <yamaoka>
Date: Wed, 18 Sep 2002 11:16:34 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-04-quimby~36
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87a93d3466d815fb29485b101cc7300198180c0e;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dbe93ae..99418b5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-18  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* message.el (message-completion-alist): Add Reply-To, From, etc.
+
 2002-09-18  Simon Josefsson  <jas@extundo.com>
 
 	* nnimap.el (nnimap-request-expire-articles): Make flag setting
@@ -7652,7 +7656,7 @@
 	* gnus-sum.el (gnus-summary-mark-article-as-replied): Make into a
 	command.
 
-2001-03-31 01:04:54  Francis Litterio  <franl@world.omitthis.std.com>
+2001-03-31 01:04:54  Francis Litterio  <franl@world.std.com>
 
 	* message.el (message-set-auto-save-file-name): Don't use
 	asterisks under nt.
diff --git a/lisp/message.el b/lisp/message.el
index 728bfa4..609179d 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6596,7 +6596,9 @@ which specify the range to operate on."
 
 (defcustom message-completion-alist
   (list (cons message-newgroups-header-regexp 'message-expand-group)
-	'("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name))
+	'("^\\(Resent-\\)?\\(To\\|B?Cc\\):" . message-expand-name)
+	'("^\\(Reply-To\\|From\\|Disposition-Notification-To\\|Return-Receipt-To\\):" 
+	  . message-expand-name))
   "Alist of (RE . FUN).  Use FUN for completion on header lines matching RE."
   :group 'message
   :type '(alist :key-type regexp :value-type function))