bbdb をインストールしておくと、Mail の、アドレスを自動取得する事が出来ます。
関連するページはこちら、
MacOSX & Cygwin on Windows のソフトの事
CarbonEmacs と、NTEmacs のページは此方
bbdb をインストールしておくと、Mail の、アドレスを自動取得する事が出来ます。ここでは、wanderlust での設定を、紹介しています。
$ cvs -d :pserver:anonymous@bbdb.cvs.sourceforge.net:/cvsroot/bbdb checkout bbdb
MacOSX 用には
$ ./configure --with-emacs=/Applications/Emacs.app/Contents/MacOS/Emacs $ make $ sudo mkdir /Applications/Emacs.app/Contents/Resources/share/emacs/site-lisp/bbdb $ sudo cp lisp/*.el /Applications/Emacs.app/Contents/Resources/share/emacs/site-lisp/bbdb $ sudo cp lisp/*.elc /Applications/Emacs.app/Contents/Resources/share/emacs/site-lisp/bbdb
Cygwin 用には
$ ./configure --with-emacs=/usr/local/emacs/22.0.90/bin/emacs $ make $ mkdir /usr/local/emacs/site-lisp/bbdb $ cp lisp/*.el /usr/local/emacs/site-lisp/bbdb $ cp lisp/*.elc /usr/local/emacs/site-lisp/bbdb
で、お終い。
では、.emacs の設定です。1
読み込みは、
(require 'bbdb-wl) (bbdb-wl-setup)
あとは、何処で紹介されていたのをいただいて来て、そのまま適当に、
;; ポップアップ表示
(setq bbdb-use-pop-up t)
;; 自動収集
(setq bbdb/mail-auto-create-p t)
;; アドレスを自動で追加
(setq bbdb-always-add-addresses t)
;; 新しいアドレスをプライマリへ
;; (setq bbdb-new-nets-always-primary t)
;; 自動収集しないフォルダの指定
;; (setq bbdb-wl-ignore-folder-regexp "^@\\|^\\+\\(trash\\|spam\\|mag\\|recruit\\|sent\\|ml/\\(linux-jp/linux-new\\|debian/devel-changes\\|jikes-cvs\\)\\|com/sun-cws\\)")
(setq bbdb-wl-ignore-folder-regexp
"^@\\|^\\/\\|^\\[\\|^\\+\\(Trash\\|err-mail\\|spam\\|newspam\\|inbox\\|outbox\\|draft\\|template\\|Bcc\\|net\\|virus\\)")
(setq signature-use-bbdb t)
(setq bbdb-north-american-phone-numbers-p nil)
;; サマリに 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
(append bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0)))))
(setq bbdb-auto-notes-alist
(append bbdb-auto-notes-alist
`(("x-face"
(,(concat
"[[:blank:]\n]*\\([^[:blank:]\n]*\\)"
"\\(?:[[:blank:]\n]+\\([^[:blank:]\n]+\\)\\)?"
"\\(?:[[:blank:]\n]+\\([^[:blank:]\n]+\\)\\)?"
"\\(?:[[:blank:]\n]+\\([^[:blank:]\n]+\\)\\)?"
"\\(?:[[:blank:]\n]+\\([^[:blank:]\n]+\\)\\)?")
face
"\\1\\2\\3\\4\\5")))))
(setq x-face-bbdb-display t)
(setq bbdb-offer-save "without-asking")
後は、メールを読みすすめると、適当にアドレスを拾集してくれて、wanderlust の draft buffer で、アドレスを書く時に、esc tab すると、補完してくれます。
偶に、summary が開けられなくなった時、bbdb db がこわれている事があります。そう云うときは、あわてずに、C-x b .bbdb して、怪しげなエントリーを探し出して、消します。
bbdb は、上手につかうと、住所禄としても使えるらしいんだけど、其所まで使いこなせてません。
1. 実際には、メンテし易いように、~/.emacs/.bbdb.el として、~/.emacs.el から、読みこんでいます。