X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=README-gnus-bbdb.ja;h=986a251ec777d7d217ae92214641b83a2611394f;hb=5b53427996a6a3dfb8eb112bea726c077251b33b;hp=81299ab00418258d4d77ea27fac075bea28b9874;hpb=1f2b93a24df7b9914dbbc1a26a6e76c8da6511d1;p=elisp%2Fgnus.git- diff --git a/README-gnus-bbdb.ja b/README-gnus-bbdb.ja index 81299ab..986a251 100644 --- a/README-gnus-bbdb.ja +++ b/README-gnus-bbdb.ja @@ -1,38 +1,38 @@ -*- mode: text; fill-column: 70; -*- --- -BBDB $B$r;HMQ$5$l$F$$$kJ}$O!"(B bbdb-gnus.elc $B$r(B Semi-gnus 6.8.X $B0JA0$N$b(B -$B$N$H6&M-$9$k$3$H$O$G$-$^$;$s!#I,$:!"(B byte-compile $B$7D>$7$F$/$@$5$$!#(B +BBDB ~~~~~~~~~~~ bbdb-gnus.elc ~ Semi-gnus 6.8.X ~~~~ +~~~~~~~~~~~~~~~~~~ byte-compile ~~~~~~~~~ -;; gnus $B$r5/F0$7$?$"$H$G!"(B bbdb-gnus.el $B$N$_$r(B byte-compile $B$9$k$H$$$&(B -;; $B$N$,$*l9g$K$O(B mime-bbdb $B$,ITMW$K$J$j$^$9!#(B +Semi-gnus ~~~~~ BBDB API ~~~~~~~~~~~~~~~~~~~~ +~~~~~~~ Semi-gnus ~~~~~~~~~ mime-bbdb ~~~~~~~~~ -1.11.3 $B0J9_$N(B FLIM $B$,I,MW$G$9!#(B +1.11.3 ~~~ FLIM ~~~~~~ -bbdb-auto-notes-hook $B$r;HMQ$7$F$$$J$$J}$K$OITMW$G$9$,!";HMQ$7$F$$$kJ}(B -$B$O(B bbdb.el / bbdb-hooks.el $B$K$3$N%U%!%$%k$N:G8e$K$"$k(B patch $B$r$"$F$kI,(B -$BMW$,$"$j$^$9!#(B +bbdb-auto-notes-hook ~~~~~~~~~~~~~~~~~~~~~~~~ +~ bbdb.el / bbdb-hooks.el ~~~~~~~~~~~~~ patch ~~~~~ +~~~~~~~ -$B@_DjNc(B: +~~~: -;; mime-bbdb $B$K4X$9$k@_Dj$OITMW$G$9!#(B +;; mime-bbdb ~~~~~~~~~~~~ ;(setq mime-bbdb/use-mail-extr nil) ;(eval-after-load "mail-extr" '(require 'mime-bbdb)) (require 'bbdb) (require 'gnus-bbdb) -(bbdb-initialize 'sc) ;; 'gnus / 'Gnus $B$O$O$:$7$F$/$@$5$$!#(B +(bbdb-initialize 'sc) ;; 'gnus / 'Gnus ~~~~~~~~~~ (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate) (add-hook 'message-setup-hook 'gnus-bbdb-insinuate-message) -FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$;$s$,!"$=$l(B -$B$r6/@)E*$K(B decode $B$7$?$$>l9g$K$O!"" name net)) (t (format "%s <%s>" name net))))) ---- bbdb-2.32/lisp/bbdb-hooks.el~ Tue Jan 30 08:00:56 2001 -+++ bbdb-2.32/lisp/bbdb-hooks.el Tue Jan 30 08:00:56 2001 -@@ -83,6 +83,8 @@ - ;; +--- bbdb-2.34/lisp/bbdb-hooks.el~ Tue Jan 15 09:00:11 2002 ++++ bbdb-2.34/lisp/bbdb-hooks.el Thu Jan 31 03:55:01 2002 +@@ -35,6 +35,8 @@ + ;; $Id: README-gnus-bbdb.ja,v 1.1.2.6.2.7 2002-01-31 04:33:18 yamaoka Exp $ ;; +(eval-when-compile (require 'cl)) + (require 'bbdb) + (require 'bbdb-com) - (defmacro the-v18-byte-compiler-sucks-wet-farts-from-dead-pigeons () -@@ -415,12 +417,23 @@ - (marker (bbdb-header-start)) +@@ -405,13 +407,23 @@ + ignore field pairs fieldval ; do all bindings here for speed regexp string notes-field-name notes -- replace-p replace-or-add-msg) -+ replace-p replace-or-add-msg -+ extract-field-value-funtion) +- replace-p) ++ replace-p extract-field-value-funtion) (set-buffer (marker-buffer marker)) (save-restriction - (widen) - (goto-char marker) - (if (and (setq fieldval (bbdb-extract-field-value "From")) +- (string-match (bbdb-user-mail-names) fieldval)) + (let ((function-list bbdb-extract-field-value-function-list) + function) + (or (progn @@ -90,10 +90,11 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ + (goto-char marker) + (setq extract-field-value-funtion 'bbdb-extract-field-value)))) + (if (and (setq fieldval (funcall extract-field-value-funtion "From")) - (string-match (bbdb-user-mail-names) fieldval)) ++ (string-match (bbdb-user-mail-names) fieldval)) ;; Don't do anything if this message is from us. Note that we have ;; to look at the message instead of the record, because the record -@@ -431,7 +444,7 @@ + ;; will be of the recipient of the message if it is from us. +@@ -421,7 +433,7 @@ (goto-char marker) (setq field (car (car ignore-all)) regexp (cdr (car ignore-all)) @@ -102,7 +103,7 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ (if (and fieldval (string-match regexp fieldval)) (setq ignore t) -@@ -444,7 +457,8 @@ +@@ -434,7 +446,8 @@ pairs (cdr (car rest)) ; (REGEXP . STRING) or ; (REGEXP FIELD-NAME STRING) or ; (REGEXP FIELD-NAME STRING REPLACE-P) @@ -110,14 +111,14 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ + fieldval (funcall extract-field-value-funtion field)) + ; e.g., Subject line (when fieldval - (while pairs - (setq regexp (car (car pairs)) ---- bbdb-2.32/lisp/bbdb.el~ Sun Mar 4 20:30:09 2001 -+++ bbdb-2.32/lisp/bbdb.el Sun Mar 4 20:30:09 2001 -@@ -710,6 +710,7 @@ + ;; we perform the auto notes stuff only for authors of a message + ;; or if explicitly requested +--- bbdb-2.34/lisp/bbdb.el~ Tue Jan 15 23:00:58 2002 ++++ bbdb-2.34/lisp/bbdb.el Thu Jan 31 03:55:01 2002 +@@ -737,6 +737,7 @@ (defvar bbdb-showing-changed-ones nil) (defvar bbdb-modified-p nil) - (defvar bbdb-elided-display nil) + (defvar bbdb-address-print-formatting-alist) ; "bbdb-print" +(defvar bbdb-extract-field-value-function-list nil) (defvar bbdb-debug t) @@ -127,7 +128,7 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ --- gnus-bbdb/split-mail() -nnmail-split-fancy $B$G;HMQ$9$k$?$a$N4X?t$G$9!#l9g!"(B - `foo-group' $B$K?6$jJ,$1$^$9!#(B +*1 : From, To, Cc ~~~~~~~~~~~~~~~~~~~~~~~~~~ + ~~~~~ BBDB ~ `company' ~~~~~~ `foo' ~~~~~~~~ + `foo-group' ~~~~~~~~ -*2 : `company' $B%U%#!<%k%I$,(B `bar' $B$G;O$^$C$F$$$k>l9g!"(B`company' $B%U%#!<(B - $B%k%I$NFbMF$r$=$N$^$^%0%k!<%WL>$H$7$F;HMQ$7!"?6$jJ,$1$^$9!#(B +*2 : `company' ~~~~~~ `bar' ~~~~~~~~~~`company' ~~~ + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -*3 : `group' $B%U%#!<%k%I$,$"$k>l9g!"(B`group' $B%U%#!<%k%I$NFbMF$r$=$N$^$^(B - $B%0%k!<%WL>$H$7$F;HMQ$7!"?6$jJ,$1$^$9!#(B +*3 : `group' ~~~~~~~~~~~`group' ~~~~~~~~~~~~~ + ~~~~~~~~~~~~~~~~~~~ -*4 : `note' $B%U%#!<%k%I$K(B `my friend' $B$,4^$^$l$k>l9g!"$=$N8e$m$K;XDj$5(B - $B$l$?5,B'$G?6$jJ,$1$^$9!#$3$N5,B'$N5-=RJ}K!$O!"DL>o$N(B - `nnmail-split-fancy' $B$G$N5-=RJ}K!$HF1$8$b$N$G$9!#(B +*4 : `note' ~~~~~~ `my friend' ~~~~~~~~~~~~~~~~ + ~~~~~~~~~~~~~~~~~~~~~~~~~~ + `nnmail-split-fancy' ~~~~~~~~~~~~~~