X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-bbdb.el;h=35dd546b13ee98391a924d16774a2512c7975483;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=281a1eb38248b527425162af244ebc721db8c2ec;hpb=b4c0925f4908a23d4c76b59f60cb73f7a47895a7;p=elisp%2Fgnus.git-

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)