From 92fe94cbb620e8642bedc3827e39da1e18dabe15 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 24 Apr 2002 02:57:41 +0000 Subject: [PATCH] * gnus-bbdb.el (gnus-bbdb/update-record): Disregard the message cache when bbdb/news-auto-create-p is nil. --- lisp/gnus-bbdb.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el index 281a1eb..35dd546 100644 --- a/lisp/gnus-bbdb.el +++ b/lisp/gnus-bbdb.el @@ -87,14 +87,14 @@ the user confirms the creation." bbdb/news-auto-create-p) offer-to-create) offer-to-create))) - ;; XXX: BBDB 2.3x not only redefines - ;; `bbdb-encache-message' as a macro but also the inherent - ;; semantics of message caching functions is changed, so - ;; the following calls are much the same here. - (if (functionp 'bbdb-encache-message) - (car (bbdb-encache-message message-key (list record))) - (bbdb-encache-message message-key record))))))) - + (when record + ;; XXX: BBDB 2.3x not only redefines + ;; `bbdb-encache-message' as a macro but also the inherent + ;; semantics of message caching functions is changed, so + ;; the following calls are much the same here. + (if (functionp 'bbdb-encache-message) + (car (bbdb-encache-message message-key (list record))) + (bbdb-encache-message message-key record)))))))) ;;;###autoload (defun gnus-bbdb/annotate-sender (string &optional replace) -- 1.7.10.4