projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch with Gnus.
[elisp/gnus.git-]
/
lisp
/
gnus-bbdb.el
diff --git
a/lisp/gnus-bbdb.el
b/lisp/gnus-bbdb.el
index
7763794
..
e39ba6b
100644
(file)
--- 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)
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))))
(when from
(setq from (gnus-bbdb/extract-address-components
(gnus-bbdb/decode-field-body from 'From))))