From c0f5389561bd149314bdc91be48c2bea6f977892 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 25 Jan 1999 17:58:05 +0000 Subject: [PATCH] (gnus-article-sort-by-author): fixed. --- lisp/gnus-sum.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 1b8ec1f..6a089f6 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3454,11 +3454,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) "")) -- 1.7.10.4