Synch with Oort Gnus.
[elisp/gnus.git-] / README-gnus-bbdb.en
1 -*- mode: text; fill-column: 70; -*-
2
3 ---
4  If BBDB is used then, bbdb-gnus.elc can't be shared with them before
5 Semi-gnus 6.8.X. It is necessary to byte-compile it again.
6
7 ;; It is a simple way that only bbdb-gnus.el is byte-compiled after
8 ;; gnus starts.
9
10 ---
11 gnus-bbdb.el
12
13  This is the BBDB API module for Semi-gnus. `mime-bbdb' should not be
14 necessary for Semi-gnus, if that module were used.
15
16  You need FLIM 1.11.3 or later.
17
18  If you are using bbdb-auto-notes-hook, the patch listed at the end
19 of this file should be applied. If not, it might not.
20
21  EXAMPLE:
22
23 ;; You need to set nothing for `mime-bbdb'.
24 ;(setq mime-bbdb/use-mail-extr nil)
25 ;(eval-after-load "mail-extr" '(require 'mime-bbdb))
26
27 (require 'bbdb)
28 (require 'gnus-bbdb)
29 (bbdb-initialize 'sc)  ;; 'Gnus or 'gnus should be deleted.
30 (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate)
31 (add-hook 'message-setup-hook 'gnus-bbdb-insinuate-message)
32
33  If you would like to decode the quoted encoded words forcibly, even
34 though FLIM does not decode them, put the following lines in your
35 .gnus file.
36
37 (setq gnus-bbdb/decode-field-body-function
38       (function
39        (lambda (field-body field-name)
40          (eword-decode-string field-body))))
41
42 ---
43  This is a patch for bbdb.el / bbdb-hooks.el.
44
45 ------ cut here ------ cut here ------ cut here ------ cut here ------
46 --- bbdb-2.33/lisp/bbdb-com.el~ Sat Sep  1 07:00:10 2001
47 +++ bbdb-2.33/lisp/bbdb-com.el  Mon Sep 10 23:17:46 2001
48 @@ -1654,7 +1654,7 @@
49            ;; to be enclosed in quotes.  Double-quotes and backslashes have
50            ;; already been escaped.  This quotes a few extra characters as
51            ;; well (!,%, and $) just for common sense.
52 -          ((string-match "[][\000-\037\177()<>@,;:.!$%]" name)
53 +         ((string-match "[][\000-\037\177<>@,;.!$%]" name)
54             (format "\"%s\" <%s>" name net))
55            (t
56             (format "%s <%s>" name net)))))
57 --- bbdb-2.33/lisp/bbdb-hooks.el~       Sat Sep  1 07:00:10 2001
58 +++ bbdb-2.33/lisp/bbdb-hooks.el        Mon Sep 10 23:17:46 2001
59 @@ -35,6 +35,8 @@
60  ;; $Id: README-gnus-bbdb.en,v 1.1.2.5.12.6 2001-09-10 23:21:07 yamaoka Exp $
61  ;;
62  
63 +(eval-when-compile (require 'cl))
64 +
65  (require 'bbdb)
66  
67  (defvar rmail-buffer)
68 @@ -384,13 +386,23 @@
69           (marker (bbdb-header-start))
70           field pairs fieldval  ; do all bindings here for speed
71           regexp string notes-field-name notes
72 -         replace-p)
73 +         replace-p extract-field-value-funtion)
74      (set-buffer (marker-buffer marker))
75      (save-restriction
76 -      (widen)
77 -      (goto-char marker)
78 -      (if (and (setq fieldval (bbdb-extract-field-value "From"))
79 -               (string-match (bbdb-user-mail-names) fieldval))
80 +      (let ((function-list bbdb-extract-field-value-function-list)
81 +           function)
82 +       (or (progn
83 +             (while (and (not extract-field-value-funtion)
84 +                         (setq function (car function-list)))
85 +               (setq extract-field-value-funtion (funcall function)
86 +                     function-list (cdr function-list)))
87 +             extract-field-value-funtion)
88 +           (progn
89 +             (widen)
90 +             (goto-char marker)
91 +             (setq extract-field-value-funtion 'bbdb-extract-field-value))))
92 +      (if (and (setq fieldval (funcall extract-field-value-funtion "From"))
93 +              (string-match (bbdb-user-mail-names) fieldval))
94            ;; Don't do anything if this message is from us.  Note that we have
95            ;; to look at the message instead of the record, because the record
96            ;; will be of the recipient of the message if it is from us.
97 @@ -400,7 +412,7 @@
98            (goto-char marker)
99            (setq field (car (car ignore-all))
100                  regexp (cdr (car ignore-all))
101 -                fieldval (bbdb-extract-field-value field))
102 +                fieldval (funcall extract-field-value-funtion field))
103            (if (and fieldval
104                     (string-match regexp fieldval))
105                (setq ignore t)
106 @@ -413,7 +425,8 @@
107                  pairs (cdr (car rest))  ; (REGEXP . STRING) or
108                                          ; (REGEXP FIELD-NAME STRING) or
109                                          ; (REGEXP FIELD-NAME STRING REPLACE-P)
110 -                fieldval (bbdb-extract-field-value field)) ; e.g., Subject line
111 +                fieldval (funcall extract-field-value-funtion field))
112 +                                        ; e.g., Subject line
113            (when fieldval
114              (while pairs
115                (setq regexp (car (car pairs))
116 --- bbdb-2.33/lisp/bbdb.el~     Wed Sep  5 07:00:12 2001
117 +++ bbdb-2.33/lisp/bbdb.el      Mon Sep 10 23:17:46 2001
118 @@ -707,6 +707,7 @@
119  (defvar bbdb-showing-changed-ones nil)
120  (defvar bbdb-modified-p nil)
121  (defvar bbdb-address-print-formatting-alist) ; "bbdb-print"
122 +(defvar bbdb-extract-field-value-function-list nil)
123  
124  (defvar bbdb-debug t)
125  (defmacro bbdb-debug (&rest body)
126 ------ cut here ------ cut here ------ cut here ------ cut here ------
127
128 ---