From 1728d285312ef05192815148f093dd4656fb4d94 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 21 Jul 2000 18:05:47 +0000 Subject: [PATCH] Synch up with t-gnus-6_14. --- ChangeLog | 5 +++++ lisp/gnus-bbdb.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 66bc9ce..6cadf80 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-07-21 Daiki Ueno + + * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Use + mime-entity-fetch-field instead of mail-header-from. + 2000-07-18 Daiki Ueno * 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)))) -- 1.7.10.4