From d23ffdc124b2776147c559617cde675a66437057 Mon Sep 17 00:00:00 2001 From: keiichi Date: Fri, 30 Oct 1998 06:57:12 +0000 Subject: [PATCH] (gnus-bbdb-insinuate): Check existence of `bbdb-extract-field-value-function-list' before setting. --- lisp/gnus-bbdb.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 1.7.10.4