New public branch gnus-6_10.
[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
32  If you would like to decode the quoted encoded words forcibly, even
33 though FLIM does not decode them, put the following lines in your
34 .gnus file.
35
36 (setq gnus-bbdb/decode-field-body-function
37       (function
38        (lambda (field-body field-name)
39          (eword-decode-string field-body))))
40
41 ---
42  This is a patch for bbdb.el / bbdb-hooks.el.
43
44 ------ cut here ------ cut here ------ cut here ------ cut here ------
45 --- bbdb-hooks.el~      Tue Oct 13 03:13:50 1998
46 +++ bbdb-hooks.el       Fri Oct 30 17:05:53 1998
47 @@ -352,12 +352,22 @@
48         (marker (bbdb-header-start))
49         field pairs fieldval  ; do all bindings here for speed
50         regexp string notes-field-name notes
51 -        replace-p replace-or-add-msg)
52 +       replace-p replace-or-add-msg
53 +       extract-field-value-funtion)
54      (set-buffer (marker-buffer marker))
55      (save-restriction
56 -      (widen)
57 -      (goto-char marker)
58 -      (if (and (setq fieldval (bbdb-extract-field-value "From"))
59 +      (let ((function-list bbdb-extract-field-value-function-list)
60 +           function)
61 +       (or (progn
62 +             (while (and (not extract-field-value-funtion)
63 +                         (setq function (pop function-list)))
64 +               (setq extract-field-value-funtion (funcall function)))
65 +             extract-field-value-funtion)
66 +           (progn
67 +             (widen)
68 +             (goto-char marker)
69 +             (setq extract-field-value-funtion 'bbdb-extract-field-value))))
70 +      (if (and (setq fieldval (funcall extract-field-value-funtion "From"))
71                (string-match (bbdb-user-mail-names) fieldval))
72           ;; Don't do anything if this message is from us.  Note that we have
73           ;; to look at the message instead of the record, because the record
74 @@ -368,7 +378,7 @@
75           (goto-char marker)
76           (setq field (car (car ignore-all))
77                 regexp (cdr (car ignore-all))
78 -               fieldval (bbdb-extract-field-value field))
79 +               fieldval (funcall extract-field-value-funtion field))
80           (if (and fieldval
81                    (string-match regexp fieldval))
82               (setq ignore t)
83 @@ -382,7 +392,7 @@
84                 pairs (cdr (car rest))  ; (REGEXP . STRING) or
85                                         ; (REGEXP FIELD-NAME STRING) or
86                                         ; (REGEXP FIELD-NAME STRING REPLACE-P)
87 -               fieldval (bbdb-extract-field-value field)) ; e.g., Subject line
88 +               fieldval (funcall extract-field-value-funtion field)) ; e.g., Subject line
89           (if fieldval
90               (while pairs
91                 (setq regexp (car (car pairs))
92 --- bbdb.el~    Tue Oct 13 03:14:55 1998
93 +++ bbdb.el     Fri Oct 30 17:05:53 1998
94 @@ -620,6 +620,7 @@
95  (defvar bbdb-showing-changed-ones nil)
96  (defvar bbdb-modified-p nil)
97  (defvar bbdb-elided-display nil)
98 +(defvar bbdb-extract-field-value-function-list nil)
99  
100  (defvar bbdb-debug t)
101  (defmacro bbdb-debug (&rest body)
102 ------ cut here ------ cut here ------ cut here ------ cut here ------
103
104 ---