From: yamaoka Date: Tue, 11 Sep 2001 00:12:02 +0000 (+0000) Subject: Cancel the recent changes. X-Git-Tag: t-gnus-6_15_3-06~11 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8212ce188bae345efd0e8e7e51558d1567b58697;p=elisp%2Fgnus.git- Cancel the recent changes. --- diff --git a/README-gnus-bbdb.en b/README-gnus-bbdb.en index 49945ee..109da56 100644 --- a/README-gnus-bbdb.en +++ b/README-gnus-bbdb.en @@ -43,9 +43,9 @@ 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-2.33/lisp/bbdb-com.el~ Sat Sep 1 07:00:10 2001 -+++ bbdb-2.33/lisp/bbdb-com.el Mon Sep 10 23:17:46 2001 -@@ -1654,7 +1654,7 @@ +--- bbdb-2.32/lisp/bbdb-com.el~ Sun Feb 18 08:00:39 2001 ++++ bbdb-2.32/lisp/bbdb-com.el Sun Feb 18 08:00:39 2001 +@@ -1620,7 +1620,7 @@ ;; to be enclosed in quotes. Double-quotes and backslashes have ;; already been escaped. This quotes a few extra characters as ;; well (!,%, and $) just for common sense. @@ -54,29 +54,29 @@ though FLIM does not decode them, put the following lines in your (format "\"%s\" <%s>" name net)) (t (format "%s <%s>" name net))))) ---- bbdb-2.33/lisp/bbdb-hooks.el~ Sat Sep 1 07:00:10 2001 -+++ bbdb-2.33/lisp/bbdb-hooks.el Mon Sep 10 23:17:46 2001 -@@ -35,6 +35,8 @@ - ;; $Id: README-gnus-bbdb.en,v 1.1.2.6.2.3 2001-09-10 23:20:58 yamaoka Exp $ +--- 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 @@ + ;; ;; +(eval-when-compile (require 'cl)) + (require 'bbdb) - (defvar rmail-buffer) -@@ -384,13 +386,23 @@ + (defmacro the-v18-byte-compiler-sucks-wet-farts-from-dead-pigeons () +@@ -415,12 +417,23 @@ (marker (bbdb-header-start)) field pairs fieldval ; do all bindings here for speed regexp string notes-field-name notes -- replace-p) -+ replace-p extract-field-value-funtion) +- replace-p replace-or-add-msg) ++ replace-p replace-or-add-msg ++ 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,11 +90,10 @@ 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)) + (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 - ;; will be of the recipient of the message if it is from us. -@@ -400,7 +412,7 @@ +@@ -431,7 +444,7 @@ (goto-char marker) (setq field (car (car ignore-all)) regexp (cdr (car ignore-all)) @@ -103,7 +102,7 @@ though FLIM does not decode them, put the following lines in your (if (and fieldval (string-match regexp fieldval)) (setq ignore t) -@@ -413,7 +425,8 @@ +@@ -444,7 +457,8 @@ pairs (cdr (car rest)) ; (REGEXP . STRING) or ; (REGEXP FIELD-NAME STRING) or ; (REGEXP FIELD-NAME STRING REPLACE-P) @@ -113,12 +112,12 @@ though FLIM does not decode them, put the following lines in your (when fieldval (while pairs (setq regexp (car (car pairs)) ---- bbdb-2.33/lisp/bbdb.el~ Wed Sep 5 07:00:12 2001 -+++ bbdb-2.33/lisp/bbdb.el Mon Sep 10 23:17:46 2001 -@@ -707,6 +707,7 @@ +--- 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 @@ (defvar bbdb-showing-changed-ones nil) (defvar bbdb-modified-p nil) - (defvar bbdb-address-print-formatting-alist) ; "bbdb-print" + (defvar bbdb-elided-display nil) +(defvar bbdb-extract-field-value-function-list nil) (defvar bbdb-debug t) diff --git a/README-gnus-bbdb.ja b/README-gnus-bbdb.ja index de37573..81299ab 100644 --- a/README-gnus-bbdb.ja +++ b/README-gnus-bbdb.ja @@ -43,9 +43,9 @@ 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-2.33/lisp/bbdb-com.el~ Sat Sep 1 07:00:10 2001 -+++ bbdb-2.33/lisp/bbdb-com.el Mon Sep 10 23:17:46 2001 -@@ -1654,7 +1654,7 @@ +--- bbdb-2.32/lisp/bbdb-com.el~ Sun Feb 18 08:00:39 2001 ++++ bbdb-2.32/lisp/bbdb-com.el Sun Feb 18 08:00:39 2001 +@@ -1620,7 +1620,7 @@ ;; to be enclosed in quotes. Double-quotes and backslashes have ;; already been escaped. This quotes a few extra characters as ;; well (!,%, and $) just for common sense. @@ -54,29 +54,29 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ (format "\"%s\" <%s>" name net)) (t (format "%s <%s>" name net))))) ---- bbdb-2.33/lisp/bbdb-hooks.el~ Sat Sep 1 07:00:10 2001 -+++ bbdb-2.33/lisp/bbdb-hooks.el Mon Sep 10 23:17:46 2001 -@@ -35,6 +35,8 @@ - ;; $Id: README-gnus-bbdb.ja,v 1.1.2.6.2.3 2001-09-10 23:20:58 yamaoka Exp $ +--- 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 @@ + ;; ;; +(eval-when-compile (require 'cl)) + (require 'bbdb) - (defvar rmail-buffer) -@@ -384,13 +386,23 @@ + (defmacro the-v18-byte-compiler-sucks-wet-farts-from-dead-pigeons () +@@ -415,12 +417,23 @@ (marker (bbdb-header-start)) field pairs fieldval ; do all bindings here for speed regexp string notes-field-name notes -- replace-p) -+ replace-p extract-field-value-funtion) +- replace-p replace-or-add-msg) ++ replace-p replace-or-add-msg ++ 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,11 +90,10 @@ 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 - ;; will be of the recipient of the message if it is from us. -@@ -400,7 +412,7 @@ +@@ -431,7 +444,7 @@ (goto-char marker) (setq field (car (car ignore-all)) regexp (cdr (car ignore-all)) @@ -103,7 +102,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) -@@ -413,7 +425,8 @@ +@@ -444,7 +457,8 @@ pairs (cdr (car rest)) ; (REGEXP . STRING) or ; (REGEXP FIELD-NAME STRING) or ; (REGEXP FIELD-NAME STRING REPLACE-P) @@ -113,12 +112,12 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ (when fieldval (while pairs (setq regexp (car (car pairs)) ---- bbdb-2.33/lisp/bbdb.el~ Wed Sep 5 07:00:12 2001 -+++ bbdb-2.33/lisp/bbdb.el Mon Sep 10 23:17:46 2001 -@@ -707,6 +707,7 @@ +--- 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 @@ (defvar bbdb-showing-changed-ones nil) (defvar bbdb-modified-p nil) - (defvar bbdb-address-print-formatting-alist) ; "bbdb-print" + (defvar bbdb-elided-display nil) +(defvar bbdb-extract-field-value-function-list nil) (defvar bbdb-debug t)