From a4a0839a61bb529120ace249d04679410dccedb9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 8 Jun 1999 10:36:19 +0000 Subject: [PATCH] (gnus-article-sort-by-author): Bug fix - use the car of the return value of `mime-read-field'. --- 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 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) "")) -- 1.7.10.4