From: shuhei-k <shuhei-k>
Date: Fri, 28 Aug 1998 09:17:59 +0000 (+0000)
Subject: (message-make-in-reply-to): Use `std11-extract-address-components'.
X-Git-Tag: shuhei-k-199811302358~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=452c5ac75d9b83000e5d427f0950e70e172bfcc7;p=elisp%2Fgnus.git-

(message-make-in-reply-to): Use `std11-extract-address-components'.
(message-use-mail-reply-to): Doc fix.
---

diff --git a/lisp/message.el b/lisp/message.el
index 648ceb1..193a0db 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -478,7 +478,7 @@ query the user whether to use the value.  If it is t or the symbol
   "*Specifies what to do with Mail-Reply-To/Reply-To header.
 If nil, always ignore the header.  If it is t or the symbol `use', use
 its value.  If it is the symbol `ask', always query the user whether to
-use the value.  Not that if \"Reply-To\" is marked as \"broken\", its value
+use the value.  Note that if \"Reply-To\" is marked as \"broken\", its value
 is never used."
   :group 'message-interface
   :type '(choice (const :tag "ignore" nil)
@@ -2933,10 +2933,9 @@ to find out how to use this."
       (when mid
 	(concat mid
 		(when from
-		  (let ((stop-pos 
-			 (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
+		  (let ((pair (std11-extract-address-components from)))
 		    (concat "\n ("
-			    (if stop-pos (substring from 0 stop-pos) from)
+			    (or (car pair) (cadr pair))
 			    "'s message of " 
 			    (if (or (not date) (string= date ""))
 				"(unknown date)" date)