X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fgnus-bbdb.el;h=e39ba6b7435b0c0f898341e44e7b6aa208b56555;hb=e9b6e1088c1079e93d9290976459825b434328d0;hp=77637944d07f91cf816469a4755b8503d21f5815;hpb=e603dafe9f1fa485e3f583b9fd57e9aaf13fc2c9;p=elisp%2Fgnus.git-

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