From: ueno <ueno>
Date: Wed, 24 Apr 2002 02:57:41 +0000 (+0000)
Subject: * gnus-bbdb.el (gnus-bbdb/update-record): Disregard the
X-Git-Tag: t-gnus-6_15_7-00-quimby~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=92fe94cbb620e8642bedc3827e39da1e18dabe15;p=elisp%2Fgnus.git-

* gnus-bbdb.el (gnus-bbdb/update-record): Disregard the
message cache when bbdb/news-auto-create-p is nil.
---

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)