From: keiichi <keiichi>
Date: Fri, 30 Oct 1998 06:57:12 +0000 (+0000)
Subject: (gnus-bbdb-insinuate): Check existence of
X-Git-Tag: keiichi-199811302358~49
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d23ffdc124b2776147c559617cde675a66437057;p=elisp%2Fgnus.git-

(gnus-bbdb-insinuate): Check existence of
`bbdb-extract-field-value-function-list' before setting.
---

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index 15896db..4c274ac 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -450,8 +450,9 @@ beginning of the message headers."
 (defun gnus-bbdb-insinuate ()
   "Call this function to hook BBDB into Semi-gnus."
 ;;  (setq gnus-optional-headers 'gnus-bbdb/lines-and-from)
-  (add-to-list 'bbdb-extract-field-value-function-list
-	       'gnus-bbdb/extract-field-value-init)
+  (when (boundp 'bbdb-extract-field-value-function-list)
+    (add-to-list 'bbdb-extract-field-value-function-list
+		 'gnus-bbdb/extract-field-value-init))
   (add-hook 'gnus-article-prepare-hook 'gnus-bbdb/update-record)
   (add-hook 'gnus-save-newsrc-hook 'bbdb-offer-save)
   (define-key gnus-summary-mode-map ":" 'gnus-bbdb/show-sender)