Synch to Oort Gnus 200303152259.

[elisp/gnus.git-] / README-gnus-bbdb.en

diff --git a/README-gnus-bbdb.en b/README-gnus-bbdb.en
index 6d9ffa9..5ec9011 100644 (file)
--- a/README-gnus-bbdb.en
+++ b/README-gnus-bbdb.en
@@ -13,7 +13,7 @@ gnus-bbdb.el
  This is the BBDB API module for Semi-gnus. `mime-bbdb' should not be
 necessary for Semi-gnus, if that module were used.
 
  This is the BBDB API module for Semi-gnus. `mime-bbdb' should not be
 necessary for Semi-gnus, if that module were used.
 

- You need FLIM 1.11.3 or later.
+ You need FLIM 1.11.3 or later (T-gnus requires FLIM 1.14).

 
  If you are using bbdb-auto-notes-hook, the patch listed at the end
 of this file should be applied. If not, it might not.
 
  If you are using bbdb-auto-notes-hook, the patch listed at the end
 of this file should be applied. If not, it might not.

@@ -28,7 +28,10 @@ of this file should be applied. If not, it might not.
 (require 'gnus-bbdb)
 (bbdb-initialize 'sc)  ;; 'Gnus or 'gnus should be deleted.
 (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate)
 (require 'gnus-bbdb)
 (bbdb-initialize 'sc)  ;; 'Gnus or 'gnus should be deleted.
 (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate)

-(add-hook 'message-setup-hook 'gnus-bbdb-insinuate-message)
+
+;; No need to use the following lines under T-gnus 6.15.5 and later.
+;(eval-after-load "message"
+;  '(add-hook 'message-setup-hook 'gnus-bbdb-insinuate-message))

 
  If you would like to decode the quoted encoded words forcibly, even
 though FLIM does not decode them, put the following lines in your
 
  If you would like to decode the quoted encoded words forcibly, even
 though FLIM does not decode them, put the following lines in your

@@ -40,12 +43,12 @@ though FLIM does not decode them, put the following lines in your
          (eword-decode-string field-body))))
 
 ---
          (eword-decode-string field-body))))
 
 ---

- This is a patch for bbdb.el / bbdb-hooks.el.
+ This is a patch for bbdb-com.el, bbdb-hooks.el and bbdb.el.

 
 ------ cut here ------ cut here ------ cut here ------ cut here ------
 
 ------ cut here ------ cut here ------ cut here ------ cut here ------

---- bbdb-2.33/lisp/bbdb-com.el~        Sat Mar 24 08:00:29 2001
-+++ bbdb-2.33/lisp/bbdb-com.el Mon Sep 10 22:48:15 2001
-@@ -1625,7 +1625,7 @@
+--- bbdb-2.34/lisp/bbdb-com.el~        Tue Jan 15 23:00:57 2002
++++ bbdb-2.34/lisp/bbdb-com.el Thu Jan 31 03:55:01 2002
+@@ -1686,7 +1686,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.
            ;; 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,30 +57,27 @@ though FLIM does not decode them, put the following lines in your
             (format "\"%s\" <%s>" name net))
            (t
             (format "%s <%s>" name net)))))
             (format "\"%s\" <%s>" name net))
            (t
             (format "%s <%s>" name net)))))

---- bbdb-2.33/lisp/bbdb-hooks.el~      Tue Mar 20 08:00:09 2001
-+++ bbdb-2.33/lisp/bbdb-hooks.el       Mon Sep 10 22:48:15 2001
-@@ -35,6 +35,8 @@
- ;; $Id: README-gnus-bbdb.en,v 1.1.2.5.12.5 2001-09-10 22:51:50 yamaoka Exp $
+--- 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
+@@ -36,4 +36,6 @@

  ;;
  
 +(eval-when-compile (require 'cl))
 +
  (require 'bbdb)
  ;;
  
 +(eval-when-compile (require 'cl))
 +
  (require 'bbdb)

- 
- (defmacro the-v18-byte-compiler-sucks-wet-farts-from-dead-pigeons ()
-@@ -367,14 +369,24 @@
-          (marker (bbdb-header-start))
+ (require 'bbdb-com)
+@@ -405,13 +407,23 @@
+          ignore

           field pairs fieldval  ; do all bindings here for speed
           regexp string notes-field-name notes
           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))
      (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))

--          ;; Don't do anything if this message is from us.  Note that we have

 +      (let ((function-list bbdb-extract-field-value-function-list)
 +          function)
 +      (or (progn
 +      (let ((function-list bbdb-extract-field-value-function-list)
 +          function)
 +      (or (progn

@@ -92,11 +92,10 @@ though FLIM does not decode them, put the following lines in your
 +            (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))
 +            (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
+           ;; 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.
            ;; 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.

-           nil
-@@ -383,7 +395,7 @@
+@@ -421,7 +433,7 @@

            (goto-char marker)
            (setq field (car (car ignore-all))
                  regexp (cdr (car ignore-all))
            (goto-char marker)
            (setq field (car (car ignore-all))
                  regexp (cdr (car ignore-all))

@@ -105,7 +104,7 @@ though FLIM does not decode them, put the following lines in your
            (if (and fieldval
                     (string-match regexp fieldval))
                (setq ignore t)
            (if (and fieldval
                     (string-match regexp fieldval))
                (setq ignore t)

-@@ -396,7 +408,8 @@
+@@ -434,7 +446,8 @@

                  pairs (cdr (car rest))  ; (REGEXP . STRING) or
                                          ; (REGEXP FIELD-NAME STRING) or
                                          ; (REGEXP FIELD-NAME STRING REPLACE-P)
                  pairs (cdr (car rest))  ; (REGEXP . STRING) or
                                          ; (REGEXP FIELD-NAME STRING) or
                                          ; (REGEXP FIELD-NAME STRING REPLACE-P)

@@ -113,14 +112,14 @@ though FLIM does not decode them, put the following lines in your
 +                fieldval (funcall extract-field-value-funtion field))
 +                                        ; e.g., Subject line
            (when fieldval
 +                fieldval (funcall extract-field-value-funtion field))
 +                                        ; e.g., Subject line
            (when fieldval

-             (while pairs
-               (setq regexp (car (car pairs))
---- bbdb-2.33/lisp/bbdb.el~    Tue Mar 27 08:00:31 2001
-+++ bbdb-2.33/lisp/bbdb.el     Mon Sep 10 22:48:15 2001
-@@ -709,6 +709,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-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)
 +(defvar bbdb-extract-field-value-function-list nil)
  
  (defvar bbdb-debug t)