From f9173cf84b52a18e5da8e8a819478c1b7234ae7e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 19 Apr 2001 06:26:12 +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 727bae9..16f41fd 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