1 -*- mode: text; fill-column: 70; -*-
3 ** This document is copied from keiichi branch. **
4 ** We thank Keiichi Suzuki a lot. **
7 If BBDB is used then, bbdb-gnus.elc can't be shared with them before
8 Semi-gnus 6.8.X. It is necessary to byte-compile it again.
10 ;; It is a simple way that only bbdb-gnus.el is byte-compiled after
16 This is the BBDB API module for Semi-gnus, which includes Chao-gnus
17 6.9. `mime-bbdb' should not be necessary for Semi-gnus, if that module
20 You need FLIM after 1.11.3.
22 If you are using bbdb-auto-notes-hook, the patch listed at the end
23 of this file should be applied. If not, it might not.
27 ;; You need to set nothing for `mime-bbdb'.
28 ;(setq mime-bbdb/use-mail-extr nil)
29 ;(eval-after-load "mail-extr" '(require 'mime-bbdb))
33 (bbdb-initialize 'sc) ;; 'Gnus of 'gnus should be deleted.
34 (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate)
36 If you would like to decode the quoted encoded words forcibly, even
37 though FLIM does not decode them, put the following lines in your
40 (setq gnus-bbeb/decode-field-body-function
42 (lambda (field-body field-name)
43 (eword-decode-string field-body))))
46 This is a patch for bbdb.el / bbdb-hooks.el.
48 ------ cut here ------ cut here ------ cut here ------ cut here ------
49 --- bbdb-hooks.el~ Tue Oct 13 03:13:50 1998
50 +++ bbdb-hooks.el Fri Oct 30 17:05:53 1998
52 (marker (bbdb-header-start))
53 field pairs fieldval ; do all bindings here for speed
54 regexp string notes-field-name notes
55 - replace-p replace-or-add-msg)
56 + replace-p replace-or-add-msg
57 + extract-field-value-funtion)
58 (set-buffer (marker-buffer marker))
62 - (if (and (setq fieldval (bbdb-extract-field-value "From"))
63 + (let ((function-list bbdb-extract-field-value-function-list)
66 + (while (and (not extract-field-value-funtion)
67 + (setq function (pop function-list)))
68 + (setq extract-field-value-funtion (funcall function)))
69 + extract-field-value-funtion)
73 + (setq extract-field-value-funtion 'bbdb-extract-field-value))))
74 + (if (and (setq fieldval (funcall extract-field-value-funtion "From"))
75 (string-match (bbdb-user-mail-names) fieldval))
76 ;; Don't do anything if this message is from us. Note that we have
77 ;; to look at the message instead of the record, because the record
80 (setq field (car (car ignore-all))
81 regexp (cdr (car ignore-all))
82 - fieldval (bbdb-extract-field-value field))
83 + fieldval (funcall extract-field-value-funtion field))
85 (string-match regexp fieldval))
88 pairs (cdr (car rest)) ; (REGEXP . STRING) or
89 ; (REGEXP FIELD-NAME STRING) or
90 ; (REGEXP FIELD-NAME STRING REPLACE-P)
91 - fieldval (bbdb-extract-field-value field)) ; e.g., Subject line
92 + fieldval (funcall extract-field-value-funtion field)) ; e.g., Subject line
95 (setq regexp (car (car pairs))
96 --- bbdb.el~ Tue Oct 13 03:14:55 1998
97 +++ bbdb.el Fri Oct 30 17:05:53 1998
99 (defvar bbdb-showing-changed-ones nil)
100 (defvar bbdb-modified-p nil)
101 (defvar bbdb-elided-display nil)
102 +(defvar bbdb-extract-field-value-function-list nil)
104 (defvar bbdb-debug t)
105 (defmacro bbdb-debug (&rest body)
106 ------ cut here ------ cut here ------ cut here ------ cut here ------