diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2001-03-26 14:35:42 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2001-03-26 14:35:42 +0000 |
commit | d06ad1b48f5fb25f2abe4fb4742d31c071a24dc7 (patch) | |
tree | 4be7173d8a818627fec555a21d703976fd94a1e0 /lisp/bbdb-gnus.el | |
parent | cb39269b15bf1d9fd8f03c68378c0a627d507e4c (diff) |
* lisp/bbdb.el (bbdb-message-cache-lookup):
* lisp/bbdb-gnus.el (bbdb/gnus-update-records):
* lisp/bbdb-vm.el (bbdb/vm-update-records):
YABugfix: first record was lost when looking it up from the
cache.
Diffstat (limited to 'lisp/bbdb-gnus.el')
-rw-r--r-- | lisp/bbdb-gnus.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/bbdb-gnus.el b/lisp/bbdb-gnus.el index 3592a34..8dcf46e 100644 --- a/lisp/bbdb-gnus.el +++ b/lisp/bbdb-gnus.el @@ -147,12 +147,12 @@ the user confirms the creation." (set-buffer (get-buffer gnus-article-buffer)) (if (and msg-id (not bbdb/gnus-offer-to-create)) (setq cache (bbdb-message-cache-lookup msg-id))) + (if cache (setq records (if bbdb-get-only-first-address-p - (if (cadr cache);; stop it from returning '(nil) - (list (cadr cache)) - nil) - (cdr cache))) + (car cache) + cache)) + (let ((bbdb-update-records-mode (or bbdb/gnus-update-records-mode bbdb-update-records-mode))) (setq records (bbdb-update-records |