From b3eba45018795f7ee717e2fea56264b5697e9dbc Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 2 Mar 2000 05:53:21 +0000 Subject: [PATCH] (gnus-summary-line-format-alist): Use `mime-entity-read-field' instead of `mime-read-field'. (gnus-article-sort-by-author): Likewise. --- lisp/gnus-sum.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index e405bd4..67124fb 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -806,9 +806,9 @@ which it may alter in any way.") (?s gnus-tmp-subject-or-nil ?s) (?n gnus-tmp-name ?s) (?A (std11-address-string - (car (mime-read-field 'From gnus-tmp-header))) ?s) + (car (mime-entity-read-field gnus-tmp-header 'From))) ?s) (?a (or (std11-full-name-string - (car (mime-read-field 'From gnus-tmp-header))) + (car (mime-entity-read-field gnus-tmp-header 'From))) gnus-tmp-from) ?s) (?F gnus-tmp-from ?s) (?x ,(macroexpand '(mail-header-xref gnus-tmp-header)) ?s) @@ -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 (car (mime-read-field 'From h1)))) + (let ((addr (car (mime-entity-read-field h1 'From)))) (or (std11-full-name-string addr) (std11-address-string addr) "")) - (let ((addr (car (mime-read-field 'From h2)))) + (let ((addr (car (mime-entity-read-field h2 'From)))) (or (std11-full-name-string addr) (std11-address-string addr) "")) -- 1.7.10.4