From ee6171eb66bf7f039f2c1ebc4cf4253c0ffacea4 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 22 Apr 2002 06:05:44 +0000 Subject: [PATCH] Fix the last change. --- lisp/gnus-bbdb.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4