mime-bbdb.el (bbdb-extract-field-value)

[Katsumi Yamaoka]

>>>>> In [emacs-mime-ja : No.00844] 
>>>>>	山下純司さん <ysjj ＠ unixuser.org> wrote:

山岡>      (or (and (fboundp 'bbdb-header-start)
山岡>	       (fboundp 'bbdb-extract-field-value))
山岡>	  (load "bbdb-hooks"))
山岡>;; 両方 autoload になっている BBDB の版があったらだめか。(^^;;)

山下さん> 現在、私が使ってる bbdb のバージョンは Debian(unstable) の 
山下さん> package にある 2.3 なのですが、まさに両方 autoload になって
山下さん> います。

おおっと、bbdb-autoloads.el の存在を忘れていました。かくなる上は
くだんの部分は以下のようにしたらどうでしょう?

(or (fboundp 'tm:bbdb-extract-field-value)
    (progn
      (or (and (fboundp 'bbdb-extract-field-value)
	       (not (eq 'autoload (car-safe (symbol-function
					     'bbdb-extract-field-value)))))
	  (condition-case nil
	      (require 'bbdb-hooks)
	    (error
	     (load "bbdb-hooks"))))
      (fset 'tm: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
	       (eword-decode-string value))))
      ))
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>