projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7d7a429
)
Synch up with t-gnus-6_14.
author
ueno
<ueno>
Fri, 21 Jul 2000 18:05:47 +0000
(18:05 +0000)
committer
ueno
<ueno>
Fri, 21 Jul 2000 18:05:47 +0000
(18:05 +0000)
ChangeLog
patch
|
blob
|
history
lisp/gnus-bbdb.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
66bc9ce
..
6cadf80
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,8
@@
+2000-07-21 Daiki Ueno <ueno@unixuser.org>
+
+ * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Use
+ mime-entity-fetch-field instead of mail-header-from.
+
2000-07-18 Daiki Ueno <ueno@unixuser.org>
* lisp/gnus-vers.el (gnus-revision-number): Increment to 02.
2000-07-18 Daiki Ueno <ueno@unixuser.org>
* 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
(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))))