NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).
Dear Big Brothers,
as of 04/04/2007, I've extended the type of
gnus-ignored-from-addresses to a list of regexps. The following patch
makes BBDB aware of that.
ChangeLog addition:
2008-01-29 Didier Verna <[EMAIL PROTECTED]>
Handle recent type change of gnus-ignored-from-addresses.
* lisp/bbdb-gnus.el (bbdb/gnus-ignored-from-addresses): New.
* lisp/bbdb-gnus.el (bbdb/gnus-update-records): Use it.
* lisp/bbdb-gnus.el (bbdb/gnus-summary-get-author): Ditto.
BBDB source patch:
Diff command: cvs -q diff -u -t -b -B -w
Files affected: lisp/bbdb-gnus.el
===================================================================
RCS
Index: lisp/bbdb-gnus.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-gnus.el,v
retrieving revision 1.102
diff -u -u -t -b -B -w -r1.102 bbdb-gnus.el
--- lisp/bbdb-gnus.el 4 Dec 2007 23:24:53 -0000 1.102
+++ lisp/bbdb-gnus.el 29 Jan 2008 14:48:05 -0000
@@ -40,6 +40,15 @@
(defvar gnus-optional-headers)
(defvar gnus-summary-to-prefix))
+(defsubst bbdb/gnus-ignored-from-addresses ()
+ "Return the value of `gnus-ignored-from-addresses' handling both
+recent Gnus (>= 04/2007) and older ones."
+ (cond ((fboundp 'gnus-ignored-from-addresses)
+ (gnus-ignored-from-addresses))
+ ((boundp 'gnus-ignored-from-addresses)
+ gnus-ignored-from-addresses)
+ (t nil)))
+
(defun bbdb/gnus-get-message-id ()
"Return the message-id of the current message."
(save-excursion
@@ -119,8 +128,7 @@
(setq records (bbdb-update-records
(bbdb-get-addresses
bbdb-get-only-first-address-p
- (or (if (boundp 'gnus-ignored-from-addresses)
- gnus-ignored-from-addresses)
+ (or (bbdb/gnus-ignored-from-addresses)
bbdb-user-mail-names)
'gnus-fetch-field)
bbdb/news-auto-create-p
@@ -328,15 +336,14 @@
This function is meant to be used with the user function defined in
`bbdb/gnus-summary-user-format-letter'"
(let* ((from (mail-header-from header))
- (to (when (and (boundp 'gnus-ignored-from-addresses)
- gnus-ignored-from-addresses
- (string-match gnus-ignored-from-addresses from))
+ (to (let ((gifa (bbdb/gnus-ignored-from-addresses)))
+ (when (and gifa (string-match gifa from))
(let* ((to (or (mail-header 'To)
(mail-header 'CC)
(mail-header 'Newsgroups))))
(if (and to (listp to))
(cdr (car to))
- to))))
+ to)))))
(data (and bbdb/gnus-summary-show-bbdb-names
(condition-case nil
(mail-extract-address-components (or to from))
--
Resistance is futile. You will be jazzimilated.
Didier Verna, [EMAIL PROTECTED], http://www.lrde.epita.fr/~didier
EPITA / LRDE, 14-16 rue Voltaire Tel.+33 (0)1 44 08 01 85
94276 Le Kremlin-Bicêtre, France Fax.+33 (0)1 53 14 59 22 [EMAIL PROTECTED]
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
[email protected]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
