From 1dc364587593918fe04f67e84e4dc67308f2e127 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 9 Mar 2001 08:10:38 +0000 Subject: [PATCH] Update. --- README-gnus-bbdb.en | 36 ++++++++++++++++++++++++++++-------- README-gnus-bbdb.ja | 36 ++++++++++++++++++++++++++++-------- 2 files changed, 56 insertions(+), 16 deletions(-) diff --git a/README-gnus-bbdb.en b/README-gnus-bbdb.en index 265609f..109da56 100644 --- a/README-gnus-bbdb.en +++ b/README-gnus-bbdb.en @@ -43,9 +43,29 @@ 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.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 @@ +--- 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. +- ((string-match "[][\000-\037\177()<>@,;:.!$%]" name) ++ ((string-match "[][\000-\037\177<>@,;.!$%]" name) + (format "\"%s\" <%s>" 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 @@ + ;; + ;; + ++(eval-when-compile (require 'cl)) ++ + (require 'bbdb) + + (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 @@ -73,7 +93,7 @@ though FLIM does not decode them, put the following lines in your (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 @@ +@@ -431,7 +444,7 @@ (goto-char marker) (setq field (car (car ignore-all)) regexp (cdr (car ignore-all)) @@ -82,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) -@@ -440,7 +451,8 @@ +@@ -444,7 +457,8 @@ pairs (cdr (car rest)) ; (REGEXP . STRING) or ; (REGEXP FIELD-NAME STRING) or ; (REGEXP FIELD-NAME STRING REPLACE-P) @@ -92,9 +112,9 @@ though FLIM does not decode them, put the following lines in your (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 @@ +--- 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-elided-display nil) diff --git a/README-gnus-bbdb.ja b/README-gnus-bbdb.ja index 90f19cd..81299ab 100644 --- a/README-gnus-bbdb.ja +++ b/README-gnus-bbdb.ja @@ -43,9 +43,29 @@ 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.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 @@ +--- 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. +- ((string-match "[][\000-\037\177()<>@,;:.!$%]" name) ++ ((string-match "[][\000-\037\177<>@,;.!$%]" name) + (format "\"%s\" <%s>" 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 @@ + ;; + ;; + ++(eval-when-compile (require 'cl)) ++ + (require 'bbdb) + + (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 @@ -73,7 +93,7 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$ (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 @@ +@@ -431,7 +444,7 @@ (goto-char marker) (setq field (car (car ignore-all)) regexp (cdr (car ignore-all)) @@ -82,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) -@@ -440,7 +451,8 @@ +@@ -444,7 +457,8 @@ pairs (cdr (car rest)) ; (REGEXP . STRING) or ; (REGEXP FIELD-NAME STRING) or ; (REGEXP FIELD-NAME STRING REPLACE-P) @@ -92,9 +112,9 @@ 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.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 @@ +--- 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-elided-display nil) -- 1.7.10.4