From: tomo <tomo>
Date: Thu, 2 Mar 2000 05:53:21 +0000 (+0000)
Subject: (gnus-summary-line-format-alist): Use `mime-entity-read-field' instead
X-Git-Tag: chaos-1_13_1~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b3eba45018795f7ee717e2fea56264b5697e9dbc;p=elisp%2Fgnus.git-

(gnus-summary-line-format-alist): Use `mime-entity-read-field' instead
of `mime-read-field'.
(gnus-article-sort-by-author): Likewise.
---

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)
 	 ""))