NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).
Dear Big Brothers,
the following patch fixes the behavior of
bbdb/gnus-user-format-function-B when gnus-ignored-mail-addresses is non
nil.
ChangeLog addition:
2008-01-29 Didier Verna <[EMAIL PROTECTED]>
* lisp/bbdb-gnus.el (bbdb/gnus-summary-get-author): Use the proper
nnheader interface for retrieving header values.
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.103
diff -u -u -t -b -B -w -r1.103 bbdb-gnus.el
--- lisp/bbdb-gnus.el 29 Jan 2008 14:50:18 -0000 1.103
+++ lisp/bbdb-gnus.el 29 Jan 2008 16:20:37 -0000
@@ -338,9 +338,10 @@
(let* ((from (mail-header-from header))
(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))))
+ (let* ((extras (mail-header-extra header))
+ (to (or (cdr (assoc 'To extras))
+ (cdr (assoc 'CC extras))
+ (cdr (assoc 'Newgroups extras)))))
(if (and to (listp to))
(cdr (car to))
to)))))
--
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/
_______________________________________________
bbdb-info@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
