From 0567faba76b71f2a1d58081afe525b330e5d1ac0 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Wed, 14 Oct 1998 02:54:27 +0000
Subject: [PATCH] (gnus-summary-line-format-alist): Use `mime-read-field',
 `std11-address-string' and `std11-full-name-string' instead
 of `gnus-extract-address-components'.
 (gnus-article-sort-by-author): Likewise.

---
 lisp/gnus-sum.el |   24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index d5a6c44..5fca16e 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -805,9 +805,10 @@ which it may alter in any way.")
     (?S ,(macroexpand '(mail-header-subject gnus-tmp-header)) ?s)
     (?s gnus-tmp-subject-or-nil ?s)
     (?n gnus-tmp-name ?s)
-    (?A (car (cdr (funcall gnus-extract-address-components gnus-tmp-from)))
-	?s)
-    (?a (or (car (funcall gnus-extract-address-components gnus-tmp-from))
+    (?A (std11-address-string
+	 (car (mime-read-field 'From gnus-tmp-header))) ?s)
+    (?a (or (std11-full-name-string
+	     (car (mime-read-field 'From gnus-tmp-header)))
 	    gnus-tmp-from) ?s)
     (?F gnus-tmp-from ?s)
     (?x ,(macroexpand '(mail-header-xref gnus-tmp-header)) ?s)
@@ -3453,14 +3454,15 @@ If LINE, insert the rebuilt thread starting on line LINE."
 (defsubst gnus-article-sort-by-author (h1 h2)
   "Sort articles by root author."
   (string-lessp
-   (let ((extract (funcall
-		   gnus-extract-address-components
-		   (mail-header-from h1))))
-     (or (car extract) (cadr extract) ""))
-   (let ((extract (funcall
-		   gnus-extract-address-components
-		   (mail-header-from h2))))
-     (or (car extract) (cadr extract) ""))))
+   (let ((addr (mime-read-field 'From h1)))
+     (or (std11-full-name-string addr)
+	 (std11-address-string addr)
+	 ""))
+   (let ((addr (mime-read-field 'From h2)))
+     (or (std11-full-name-string addr)
+	 (std11-address-string addr)
+	 ""))
+   ))
 
 (defun gnus-thread-sort-by-author (h1 h2)
   "Sort threads by root author."
-- 
1.7.10.4