From: ueno <ueno>
Date: Mon, 22 Apr 2002 06:05:44 +0000 (+0000)
Subject: Fix the last change.
X-Git-Tag: t-gnus-6_15_6-03-quimby~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ee6171eb66bf7f039f2c1ebc4cf4253c0ffacea4;p=elisp%2Fgnus.git-

Fix the last change.
---

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index 7a18625..9999498 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -50,7 +50,7 @@
   'gnus-bbdb/extract-message-sender)
 
 (defun gnus-bbdb/extract-message-sender ()
-  (let ((from (mail-header-from gnus-current-headers))
+  (let ((from (mime-entity-fetch-field gnus-current-headers "from"))
 	to)
     (when from
       (setq from (gnus-bbdb/extract-address-components