From: yamaoka <yamaoka>
Date: Tue, 8 Jun 1999 10:36:19 +0000 (+0000)
Subject: (gnus-article-sort-by-author): Bug fix - use the car of the return value of
X-Git-Tag: t-gnus-6_10_064-16~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a4a0839a61bb529120ace249d04679410dccedb9;p=elisp%2Fgnus.git-

(gnus-article-sort-by-author): Bug fix - use the car of the return value of
`mime-read-field'.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index c7af40c..6fbc64d 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3566,11 +3566,11 @@ 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 ((addr (mime-read-field 'From h1)))
+   (let ((addr (car (mime-read-field 'From h1))))
      (or (std11-full-name-string addr)
 	 (std11-address-string addr)
 	 ""))
-   (let ((addr (mime-read-field 'From h2)))
+   (let ((addr (car (mime-read-field 'From h2))))
      (or (std11-full-name-string addr)
 	 (std11-address-string addr)
 	 ""))