From: yamaoka Date: Tue, 6 Feb 2001 04:42:35 +0000 (+0000) Subject: * README-gnus-bbdb.{en,ja}: Update the patch for BBDB v2.2. X-Git-Tag: t-gnus-6_14_6-02-last-~4 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=367a35d5ecacd3b963f0ac2368ad4bb565cffded;p=elisp%2Fgnus.git- * README-gnus-bbdb.{en,ja}: Update the patch for BBDB v2.2. --- diff --git a/ChangeLog b/ChangeLog index 8b07427..5c94750 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2001-02-06 Katsumi Yamaoka + + * README-gnus-bbdb.{en,ja}: Update the patch for BBDB v2.2. + 2001-02-01 Katsumi Yamaoka * lisp/dgnushack.el (dgnushack-texi-format): A workaround for diff --git a/README-gnus-bbdb.en b/README-gnus-bbdb.en index 287636e..265609f 100644 --- a/README-gnus-bbdb.en +++ b/README-gnus-bbdb.en @@ -43,15 +43,15 @@ though FLIM does not decode them, put the following lines in your This is a patch for bbdb.el / bbdb-hooks.el. ------ cut here ------ cut here ------ cut here ------ cut here ------ ---- bbdb-hooks.el~ Tue Oct 13 03:13:50 1998 -+++ bbdb-hooks.el Fri Oct 30 17:05:53 1998 -@@ -352,12 +352,23 @@ - (marker (bbdb-header-start)) - 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) +--- bbdb-2.2/lisp/bbdb-hooks.el~ Mon Jan 8 12:35:14 2001 ++++ bbdb-2.2/lisp/bbdb-hooks.el Tue Feb 6 04:35:00 2001 +@@ -411,12 +411,23 @@ + (marker (bbdb-header-start)) + 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) (set-buffer (marker-buffer marker)) (save-restriction - (widen) @@ -62,7 +62,7 @@ though FLIM does not decode them, put the following lines in your + (or (progn + (while (and (not extract-field-value-funtion) + (setq function (car function-list))) -+ (setq extract-field-value-funtion (funcall function))) ++ (setq extract-field-value-funtion (funcall function) + function-list (cdr function-list))) + extract-field-value-funtion) + (progn @@ -70,30 +70,31 @@ though FLIM does not decode them, put the following lines in your + (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)) - ;; 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 -@@ -368,7 +378,7 @@ - (goto-char marker) - (setq field (car (car ignore-all)) - regexp (cdr (car ignore-all)) -- fieldval (bbdb-extract-field-value field)) -+ fieldval (funcall extract-field-value-funtion field)) - (if (and fieldval - (string-match regexp fieldval)) - (setq ignore t) -@@ -382,7 +392,7 @@ - pairs (cdr (car rest)) ; (REGEXP . STRING) or - ; (REGEXP FIELD-NAME STRING) or - ; (REGEXP FIELD-NAME STRING REPLACE-P) -- fieldval (bbdb-extract-field-value field)) ; e.g., Subject line -+ fieldval (funcall extract-field-value-funtion field)) ; e.g., Subject line - (if fieldval - (while pairs - (setq regexp (car (car pairs)) ---- bbdb.el~ Tue Oct 13 03:14:55 1998 -+++ bbdb.el Fri Oct 30 17:05:53 1998 -@@ -620,6 +620,7 @@ + (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 +@@ -427,7 +438,7 @@ + (goto-char marker) + (setq field (car (car ignore-all)) + regexp (cdr (car ignore-all)) +- fieldval (bbdb-extract-field-value field)) ++ fieldval (funcall extract-field-value-funtion field)) + (if (and fieldval + (string-match regexp fieldval)) + (setq ignore t) +@@ -440,7 +451,8 @@ + pairs (cdr (car rest)) ; (REGEXP . STRING) or + ; (REGEXP FIELD-NAME STRING) or + ; (REGEXP FIELD-NAME STRING REPLACE-P) +- fieldval (bbdb-extract-field-value field)) ; e.g., Subject line ++ fieldval (funcall extract-field-value-funtion field)) ++ ; e.g., Subject line + (when fieldval + (while pairs + (setq regexp (car (car pairs)) +--- bbdb-2.2/lisp/bbdb.el~ Wed Jan 24 23:14:00 2001 ++++ bbdb-2.2/lisp/bbdb.el Tue Feb 6 04:35:00 2001 +@@ -681,6 +681,7 @@ (defvar bbdb-showing-changed-ones nil) (defvar bbdb-modified-p nil) (defvar bbdb-elided-display nil) diff --git a/README-gnus-bbdb.ja b/README-gnus-bbdb.ja index f9f99bf..90f19cd 100644 --- a/README-gnus-bbdb.ja +++ b/README-gnus-bbdb.ja @@ -43,15 +43,15 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ $B0J2<$O(B bbdb.el / bbdb-hooks.el $B$K$"$F$k(B patch $B$G$9!#(B ------ cut here ------ cut here ------ cut here ------ cut here ------ ---- bbdb-hooks.el~ Tue Oct 13 03:13:50 1998 -+++ bbdb-hooks.el Fri Oct 30 17:05:53 1998 -@@ -352,12 +352,23 @@ - (marker (bbdb-header-start)) - 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) +--- bbdb-2.2/lisp/bbdb-hooks.el~ Mon Jan 8 12:35:14 2001 ++++ bbdb-2.2/lisp/bbdb-hooks.el Tue Feb 6 04:35:00 2001 +@@ -411,12 +411,23 @@ + (marker (bbdb-header-start)) + 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) (set-buffer (marker-buffer marker)) (save-restriction - (widen) @@ -62,7 +62,7 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ + (or (progn + (while (and (not extract-field-value-funtion) + (setq function (car function-list))) -+ (setq extract-field-value-funtion (funcall function))) ++ (setq extract-field-value-funtion (funcall function) + function-list (cdr function-list))) + extract-field-value-funtion) + (progn @@ -70,30 +70,31 @@ 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)) - ;; 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 -@@ -368,7 +378,7 @@ - (goto-char marker) - (setq field (car (car ignore-all)) - regexp (cdr (car ignore-all)) -- fieldval (bbdb-extract-field-value field)) -+ fieldval (funcall extract-field-value-funtion field)) - (if (and fieldval - (string-match regexp fieldval)) - (setq ignore t) -@@ -382,7 +392,7 @@ - pairs (cdr (car rest)) ; (REGEXP . STRING) or - ; (REGEXP FIELD-NAME STRING) or - ; (REGEXP FIELD-NAME STRING REPLACE-P) -- fieldval (bbdb-extract-field-value field)) ; e.g., Subject line -+ fieldval (funcall extract-field-value-funtion field)) ; e.g., Subject line - (if fieldval - (while pairs - (setq regexp (car (car pairs)) ---- bbdb.el~ Tue Oct 13 03:14:55 1998 -+++ bbdb.el Fri Oct 30 17:05:53 1998 -@@ -620,6 +620,7 @@ + (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 +@@ -427,7 +438,7 @@ + (goto-char marker) + (setq field (car (car ignore-all)) + regexp (cdr (car ignore-all)) +- fieldval (bbdb-extract-field-value field)) ++ fieldval (funcall extract-field-value-funtion field)) + (if (and fieldval + (string-match regexp fieldval)) + (setq ignore t) +@@ -440,7 +451,8 @@ + pairs (cdr (car rest)) ; (REGEXP . STRING) or + ; (REGEXP FIELD-NAME STRING) or + ; (REGEXP FIELD-NAME STRING REPLACE-P) +- fieldval (bbdb-extract-field-value field)) ; e.g., Subject line ++ fieldval (funcall extract-field-value-funtion field)) ++ ; e.g., Subject line + (when fieldval + (while pairs + (setq regexp (car (car pairs)) +--- bbdb-2.2/lisp/bbdb.el~ Wed Jan 24 23:14:00 2001 ++++ bbdb-2.2/lisp/bbdb.el Tue Feb 6 04:35:00 2001 +@@ -681,6 +681,7 @@ (defvar bbdb-showing-changed-ones nil) (defvar bbdb-modified-p nil) (defvar bbdb-elided-display nil)