From: ueno <ueno>
Date: Fri, 21 Jul 2000 17:50:46 +0000 (+0000)
Subject: * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Use
X-Git-Tag: t-gnus-6_14_5-03~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=45389cb7056a633a2c46556d7362c07e70318723;p=elisp%2Fgnus.git-

* lisp/gnus-bbdb.el (gnus-bbdb/update-record): Use
mime-entity-fetch-field instead of mail-header-from.
---

diff --git a/ChangeLog b/ChangeLog
index ed975e5..5c356ed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-21   Daiki Ueno  <ueno@unixuser.org>
+
+	* lisp/gnus-bbdb.el (gnus-bbdb/update-record): Use
+	mime-entity-fetch-field instead of mail-header-from.
+
 2000-07-18   Daiki Ueno  <ueno@unixuser.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 02.
diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index 7763794..e39ba6b 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -54,7 +54,7 @@ bbdb/news-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and
 the user confirms the creation."
   (if bbdb-use-pop-up
       (gnus-bbdb/pop-up-bbdb-buffer offer-to-create)
-    (let ((from (mail-header-from gnus-current-headers)))
+    (let ((from (mime-entity-fetch-field gnus-current-headers "from")))
       (when from
 	(setq from (gnus-bbdb/extract-address-components
 		    (gnus-bbdb/decode-field-body from 'From))))