From e341069c78015aad8840028202dea870ccbadef6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 19 Apr 2001 06:25:56 +0000 Subject: [PATCH] * mime-bbdb.el: Load "bbdb-hooks" when the symbol function `bbdb-extract-field-value' is not bound or it is set up as an autoloaded function. [cf. ] --- ChangeLog | 6 ++++++ mime-bbdb.el | 11 ++++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index e975292..5039c05 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2001-04-19 Katsumi Yamaoka + + * mime-bbdb.el: Load "bbdb-hooks" when the symbol function + `bbdb-extract-field-value' is not bound or it is set up as an + autoloaded function. [cf. ] + 2001-04-17 YAMASHITA Junji * semi-def.el (mime-browse-url-regexp): Allow https. diff --git a/mime-bbdb.el b/mime-bbdb.el index 1b61d64..cc6f7f2 100644 --- a/mime-bbdb.el +++ b/mime-bbdb.el @@ -102,10 +102,15 @@ For framepop users: If empty, `framepop-banish' is used instead.") (progn ;; (require 'bbdb-hooks) ; not provided. ;; (or (fboundp 'bbdb-extract-field-value) ; defined as autoload - (or (fboundp 'bbdb-header-start) - (load "bbdb-hooks")) + + ;; almost BBDB functions are autoloaded. + ;; (or (fboundp 'bbdb-header-start) + (or (and (fboundp 'bbdb-extract-field-value) + (not (eq 'autoload (car-safe (symbol-function + 'bbdb-extract-field-value))))) + (load "bbdb-hooks")) (fset 'tm:bbdb-extract-field-value - (symbol-function 'bbdb-extract-field-value)) + (symbol-function 'bbdb-extract-field-value)) (defun bbdb-extract-field-value (field) (let ((value (tm:bbdb-extract-field-value field))) (and value -- 1.7.10.4