どうも (require 'bbdb-gui) しないとうまくいかない。
;;; bbdb
(require 'bbdb-wl)
(require 'bbdb-gui)
(bbdb-wl-setup)
;; セーブするファイル
(setq bbdb-file "~/.bbdb")
;; ポップアップ表示
(setq bbdb-use-pop-up nil)
(setq bbdb-pop-up-target-lines 3)
;; 自動収集
(setq bbdb/mail-auto-create-p 'bbdb-ignore-some-messages-hook)
(setq signature-use-bbdb t)
(setq bbdb-north-american-phone-numbers-p nil)
;; 無視するリスト
(setq bbdb-ignore-some-messages-alist
'(("From" . "MAILER-DAEMON\\|iso-2022-jp\\|ISO-2022-JP")))
;; サマリに bbdb の名前を表示 :-)。
;(setq wl-summary-from-function 'bbdb-wl-from-func)
;; 自動的に ML フィールドを加える
(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
(setq bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0))))