bbdb $B%*%W%7%g%s(B
--------------

bbdb $B$OB?5!G=$N?ML>Jm>pJs$KFC2=$7$?%G!<%?%Y!<%9%7%9%F%`$G$9!#%G!<%?$N(B
$BF~=PNO$H%f!<%6%$%s%?%U%'!<%9$rE}9g$7!"L>A0$d%a!<%k%"%I%l%9$r4^$`%l%3!<(B
$B%I%F%s%W%l!<%H$r4^$a!"<u?.%a!<%k$+$i$N>pJsF~NOMQ(B API $B4X?t$rB??tMQ0U$7(B
$B$F$$$^$9!#(BMUA $BB&$N%5%]!<%H$K$h$j%G!<%?$N<+F0<}=8$r2DG=$K$7$^$9!#(B

$B:G?7$N(B bbdb $B$*$h$S%^%K%e%"%k$O0J2<$N(B URL $B$+$iF~<j$G$-$^$9!#(B

  http://bbdb.sourceforge.net/

cmail $B$G$O$J$k$Y$/:G?7$N(B bbdb $B%P!<%8%g%s$G$*;H$$$/$@$5$$!#$^$?(B bbdb $B$N(B 
API $B$,;~!9JQ99$K$J$k$?$a!"BP1~$9$k99?7$r$*$3$J$C$?HG(B cmail $B$,I,MW$H$J(B
$B$j$^$9!#0J2<$O8=:_H=$C$F$$$k%3%s%Q%A%S%j%F%#$NI=$G$9!#(B

	cmail    bbdb
	-------- ---------------------
	2.62     2.33 $B0JA0(B, 2.34
	2.61     2.33 $B0JA0(B
        2.60     2.00

$B;HMQK!(B
------

$B;HMQ$K$"$?$C$F$^$:(B bbdb $B$r%$%s%9%H!<%k$7$F$/$@$5$$!#E,Ev$K%P%$%H%3%s%Q(B
$B%$%k$7$F<jF0$G(B load-path $B$NDL$C$?%$%s%9%H!<%k%G%#%l%/%H%j$K%3%T!<$9$l(B
$B$P==J,$G$9!#(B(make $B$N%?!<%2%C%H$O(B bbdb $B$r;XDj$7$F!"%3%s%Q%$%k$5$l$J$$%U%!(B
$B%$%k$OL5;k$7$F$9$Y$F$N(B el $B$*$h$S(B elc $B%U%!%$%k$r%3%T!<$7$^$9!#(B) $B$b$A$m(B
$B$s(B make $B$G$^$H$b$K%3%s%Q%$%k%$%s%9%H!<%k$,$G$-$k>l9g$O$=$l$G%$%s%9%H!<(B
$B%k$7$F$/$@$5$$!#$^$?(B XEmacs $B$N%Q%C%1!<%8$J$IMxMQ$7$F$b2D$G$9!#(B

$B$=$N8e$J$k$Y$/(B cmail $B$r:F%3%s%Q%$%k%$%s%9%H!<%k$7$F$/$@$5$$!#BP1~$9$k(B
el $B%U%!%$%k$,%P%$%H%3%s%Q%$%k$5$l$^$9!#(B(MIME $B$r;HMQ$7$F$$$k>l9g8e=R$N(B 
mime-bbdb.el $B$r%$%s%9%H!<%k$9$k$?$a(B SEMI $B$r:F%$%s%9%H!<%k$9$k$N$b$*4+(B
$B$a$7$^$9!#(B)

$B0J>e$N%$%s%9%H%l!<%7%g%s$,40N;$7$?$i%*%W%7%g%sJQ?t(B cmail-use-bbdb $B$r(B 
non-nil $B$K$9$k$H(B bbdb $B%*%W%7%g%s$,M-8z$K$J$j$^$9!#%+%9%?%^%$%:$,$"$k>l(B
$B9g$O(B:

   M-x customize-group <CR> cmail-use-bbdb-group <CR>

$B$H$9$k$H(B cmail-use-bbdb $B$NJQ?t%+%9%?%^%$%:2hLL$K$J$j$^$9!#(B

bbdb $B$,M-8z$K$J$k$H!"%a%C%;!<%8$NI=<(;~$K>!<j$K%G!<%?<}=8$r;O$a$^$9!#(B
$B%a%C%;!<%8$NI=<(;~$K$O%G%U%)%k%H$GAwIU<T$N>pJs$rJL%P%C%U%!$KI=<($7$^$9!#(B
bbdb $B<+BN$N;HMQK!!"@_Dj$J$I$O(B bbdb $B$N(B info $B$r;2>H$/$@$5$$!#(B


$B0J2<I,MW:G>.8B$N4JC1$JA`:n(B/$B@_Dj$N@bL@$G$9!#(B

Q: bbdb $B$G<}=8$7$?%G!<%?$r8!:w!&1\Mw$7$?$$(B
A: M-x bbdb <CR> $B$H$9$k$H@55,I=8=$G8!:w9`L\$r?R$M$F$-$^$9!#$3$l$rF~NO(B
   $B$9$k$H%^%C%A$9$k%l%3!<%I$,%G!<%?1\Mw%b!<%I$G%j%9%H$5$l$^$9!#(B

Q: bbdb $B$G<}=8$7$?%"%I%l%9$rMxMQ$7$F(B *mail* $B%P%C%U%!$GJd40$r$7$?$$!#(B
A: *mail* $B%P%C%U%!Fb$G(B M-TAB (Esc TAB) $B$GJd40$7$^$9!#(B

Q: $B%5%^%j$+$i!"AwIU<T$N%l%3!<%I$r8+$?$$!#(B
A: $B%5%^%j$+$i(B ':' $B$r%?%$%W$7$F$/$@$5$$!#(B

Q: $B%5%^%j$+$i!"AwIU<T$N%l%3!<%I$N%N!<%H$rJT=8$7$?$$!#(B
A: $B%5%^%j$+$i(B ';' $B$r%?%$%W$7$F$/$@$5$$!#(B

Q: $B%a%C%;!<%8I=<(;~$K(B bbdb $B$N%P%C%U%!$rI=<($7$J$$$h$&$K$7$?$$!#(B
A: bbdb-use-pop-up $B$r(B nil $B$K@_Dj$7$F$/$@$5$$!#(B

Q: ISO-2022-JP $B$J$I$NJ8;zNs$,L>A0$H$7$FG'<1EPO?$5$l$F$7$^$&!#(B
A: SEMI $BImB0$N(B mime-bbdb.el $B$rMxMQ$9$k!#@_DjNc;2>H$N$3$H!#(B

Q: bbdb $B$r(B cmail $B=*N;;~$K%;!<%V=*N;$7$?$$!#(B
A: cmail-quit-hook $B$KE,594X?t$r%;%C%H$9$k!#@_DjNc;2>H$N$3$H!#(B

Q: $B$$$m$$$m$J%a%C%;!<%8$N>pJs$r=8$a$F$_$?$$!#I=<($7$F$_$?$$!#(B
A: bbdb $B$N%^%K%e%"%k$rFI$s$G$/$@$5$$!#$^$?$"$A$3$A$N%[!<%`%Z!<%8$G$$$m(B
   $B$s$J@_DjNc$,>R2p$5$l$F$$$^$9$N$GC5$7$F$_$F2<$5$$!#@_DjNc$K$b$$$/$D(B
   $B$+Nc$r:\$;$F$$$^$9!#(B
   

$B@_DjNc(B1
-------
;;
;; bbdb $B$r%m!<%I$9$k(B
;;
(require 'bbdb)

;; mime encode $B$5$l$?(B rfc822 $B%X%C%@$r@5>o$K2r@O$5$;$k$?$a$N@_Dj!#Nc$((B
;; $B$P(B "foo@bar.com (=?ISO-2022-JP?B?GyRCJFUhPCQ1JHMbKEI=?=)" $BEy$r(B name
;; "$B$U!<$5$s(B" net "foo@bar.com" $B$H2r@O$9$k!#(Bmime-bbdb $B$,I,MW!#(B
;; mime-bbdb $B$O(B BBDB $B$,%$%s%9%H!<%k$5$l$F$$$J$$$H%$%s%9%H!<%k$5$l$J$$(B
;; $BMM$J$N$G(B BBDB $B$r%$%s%9%H!<%k$7$F$+$i(B SEMI $B$r%$%s%9%H!<%k$7$J$*$9I,(B
;; $BMW$,$"$k!#(B

(setq mime-bbdb/use-mail-extr nil)
(require 'mime-bbdb)

;; mime decode $B$5$l$?%G!<%?$,J8;zNs$H$7$FF~$C$F$$$k(B bbdb-file $B$NJ8;z2=(B
;; $B$1$rHr$1$k$?$a(B coding-system $B$r(B ctext $B$K$9$k$h$&$K$7$F$*$/$H$$$$$i(B
;; $B$7$$!#$3$l$G$bJ8;z2=$1$,5/$3$k;~$O5/$3$k$N$G%P%C%/%"%C%W$O<h$C$F$*(B
;; $B$$$?J}$,$h$$$H;W$o$l$k!#(B
(if (fboundp 'modify-coding-system-alist)
    (modify-coding-system-alist 'file (expand-file-name bbdb-file) 'ctext))

;; bbdb $B$N%G!<%?%Y!<%9%U%!%$%k$r(B cmail $B=*N;;~$K%;!<%V$7$F4XO"%P%C%U%!(B
;; $B$r3+J|$9$k!#(B
(defun myfunc-bbdb-quit-all ()
  (if (bufferp bbdb-buffer)
      (let ((bbdb-buffer (get-buffer bbdb-buffer))
	    (bbdb-view-buffer (get-buffer bbdb-buffer-name)))
	(if bbdb-buffer
	    (progn
	      (bbdb-save-db)
	      (kill-buffer bbdb-buffer)))
	(if bbdb-view-buffer (kill-buffer bbdb-view-buffer)))))
(add-hook 'cmail-quit-hook 'myfunc-bbdb-quit-all)

;; bbdb $B%P%C%U%!$,(B view mode $B$K$J$k$N$rHr$1$k(B temp-buffer-setup-hook 
;; $B$,(B help-mode-setup $B$r8F$V$?$a(B view-mode $B$K$J$k!#(Bview.el $B$r%m!<%I$K(B
;; $B9T$/$N$b2y$7$$$N$G4X?t$rF~$l49$($k(B (bbdb 2.00 $B$NLdBj(B. 2.33 $B$G$O=$@5(B
;; $B$5$l$F$$$k!#(B)
(if (fboundp 'help-mode-setup)
    (progn
      (fset 'help-mode-setup-orig (symbol-function 'help-mode-setup))
      (defun help-mode-setup ()
	(if (null (string= (buffer-name (current-buffer))
			   bbdb-buffer-name))
	    (help-mode-setup-orig)))))

;; header field $B$r5-O?$9$k!#(BX-Mailer $B$H(B User-Agent $B$r=8$a$F$_$k!#(B
;; $B$D$$$G$K=$@55-O?(B($BF|IU(B)$B$rIU$1$F$_$k!#(B
(defvar *myfunc-bbdb-change-log-stack nil)
(defun myfunc-bbdb-hack-clear-log-stack ()
  (setq *myfunc-bbdb-change-log-stack nil)
  (remove-hook 'post-command-hook 'myfunc-bbdb-hack-clear-log-stack))
(defun myfunc-bbdb-annotate-x-mailer (field-value)
  (setq *myfunc-bbdb-change-log-stack
	(cons (list "x-mailer" field-value
		    (concat (current-time-string)
			    (car (cdr (current-time-zone)))))
	      *myfunc-bbdb-change-log-stack))
  (add-hook 'post-command-hook 'myfunc-bbdb-hack-clear-log-stack)
  field-value)
(defun myfunc-bbdb-annotate-user-agent (field-value)
  (setq *myfunc-bbdb-change-log-stack
	(cons (list "user-agent" field-value
		    (concat (current-time-string)
			    (car (cdr (current-time-zone)))))
	      *myfunc-bbdb-change-log-stack))
  (add-hook 'post-command-hook 'myfunc-bbdb-hack-clear-log-stack)
  field-value)

(setq bbdb-auto-notes-alist
      '(("X-Mailer" (".*" x-mailer myfunc-bbdb-annotate-x-mailer 'replace))
	("User-Agent" (".*" user-agent myfunc-bbdb-annotate-user-agent))
	("X-Mailer" (".*" mua 0 'replace))
	("User-Agent" (".*" mua 0 'replace))
        ("X-Url" (".*" www 0))
        ("To" ("qa3507@\\|morishim@cig\\|tm@interaccess" ml "direct"))
        ("X-Ml-Name" (".*" ml 0))
        ("X-List" (".*" ml 0))
        ("reply-to" ("^\\([^@]+\\)@" ml 1))))

(defun myfunc-bbdb-change-log-hook (record)
  (while *myfunc-bbdb-change-log-stack
    (let ((note (car *myfunc-bbdb-change-log-stack)))
      (setq note (concat (car note)
			 " changed for "
			 (car (cdr note))
			 " on "
			 (car (cdr (cdr note)))))
      (bbdb-annotate-notes record note 'change-log))
    (setq *myfunc-bbdb-change-log-stack (cdr *myfunc-bbdb-change-log-stack))))
(add-hook 'bbdb-change-hook 'myfunc-bbdb-change-log-hook)

(defun myfunc-bbdb-auto-notes-hook (record)
  (let (from)
    (condition-case nil
	(setq from 
	      (mail-extract-address-components
	       (mail-fetch-field "From"))))
    
    (if (or (and from (bbdb-search-simple (car from) (cdr from)))
	    (myfunc-bbdb-auto-create-p))
	(progn
	  (bbdb-auto-notes-hook record))
      (message "BBDB auto notice has ignored this message."))))
(add-hook 'bbdb-notice-hook 'myfunc-bbdb-auto-notes-hook)


;;; experimental
(setq bbdb-quiet-about-name-mismatches nil)
(setq bbdb-silent-running t)
(setq bbdb-use-alternate-names t)



$B@_DjNc(B2 [cmail 8331] $B$h$j(B($BB?>/=$@5$"$j(B)
---------------------------------------
$B4D6-(B
  WindowsNT4.0+SP5
  GNU Emacs 20.4.1 (i386-*-nt4.0.1381)/Mule 4.1 (AOI)
  Meadow-1.11b1 (TSUYU)
  APEL 10.0
  FLIM 1.13.2
  SEMI 1.13.7
  cmail 2.60+19991208
  BBDB 2.00.06
  
---$B$3$3$+$i(B---
;;; -*- Mode: Emacs-Lisp -*-
;;; ~/elisp/_bbdb.el

(setq mime-bbdb/use-mail-extr nil)
(eval-after-load "mail-extr" '(require 'mime-bbdb))
(require 'bbdb)
(bbdb-initialize)

(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)

;(setq bbdb-file (expand-file-name "~/.bbdb"))
;(modify-coding-system-alist 'file "\\.bbdb" 'ctext)
(if (fboundp 'modify-coding-system-alist)
    (modify-coding-system-alist 'file (expand-file-name bbdb-file) 'ctext))

(setq bbdb-north-american-phone-numbers-p nil
      bbdb/mail-auto-create-p 'bbdb-ignore-most-messages-hook
      bbdb-use-pop-up nil
      bbdb-pop-up-target-lines  3
      bbdb-new-nets-always-primary t
      bbdb-completion-display-record nil
      bbdb-pop-up-elided-display '(creation-date timestamp))

(setq bbdb-user-mail-names
      "yourname@all\\.your\\.domain\\.jp\\|yourname2@another\\.isp\\.ne\\.jp\\|yourname3@hi-tech\\.ac\\.jp")

(if (fboundp 'help-mode-setup)
    (progn
      (fset 'help-mode-setup-orig (symbol-function 'help-mode-setup))
      (defun help-mode-setup ()
        (if (null (string= (buffer-name (current-buffer))
                           bbdb-buffer-name))
            (help-mode-setup-orig)))))

(setq bbdb-auto-notes-alist
      '(("X-ML-Name" (".*" ML 0))
	("X-listname" ( ".*" ML 0))
	("X-Mailer" ( ".*" User-Agent 0))
	("X-Newsreader" ( ".*" User-Agent 0))
	("User-Agent" ( ".*" User-Agent 0))
	("X-URL" ( ".*" URI 0))
	("X-URI" ( ".*" URI 0))
	("Organization" ( ".*" Organization 0))
	))

;; for cmail
(autoload 'bbdb-insinuate-sendmail "bbdb" "Hook BBDB into sendmail")
(autoload 'bbdb-insinuate-cmail "bbdb-cmail" "Hook BBDB into cmail")
(add-hook 'cmail-startup-hook 'bbdb-insinuate-cmail)
(add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
(add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
;(add-hook 'cmail-mail-hook
;	  '(lambda () (local-set-key "\C-c\C-t" 'bbdb-complete-name)))

;; cmail$B=*N;;~$K(B~/.bbdb$B$r<+F0E*$K(Bsave$B$9$k!%(B
(defun myfunc-bbdb-quit-all ()
  (let ((bbdb-buffer (get-buffer bbdb-buffer))
        (bbdb-view-buffer (get-buffer bbdb-buffer-name)))
    (if bbdb-buffer
        (progn
          (bbdb-save-db)
          (kill-buffer bbdb-buffer)))
    (if bbdb-view-buffer (kill-buffer bbdb-view-buffer))))
(add-hook 'cmail-quit-hook 'myfunc-bbdb-quit-all)

;; bbdb database$B$,99?7$5$l$k$?$S$K(Bsave$B$9$k!%(B
;; $BB.EYDc2<$,$"$k$+$b!%(B
;(add-hook 'bbdb-after-change-hook
;          '(lambda () (bbdb-save-db nil)))
---$B$3$3$^$G(B---