I am using latest No Gnus from Emacs-24 (trunk). It seems if a header
field in Gnus is hidden, bbdb-message-header return nil. I don't know if
this is intended.
I use the following patch in my local BBDB copy.
Leo
--8<---------------cut here---------------start------------->8---
lisp/bbdb-mua.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
Modified lisp/bbdb-mua.el
diff --git a/lisp/bbdb-mua.el b/lisp/bbdb-mua.el
index 9baef74a..d728f847 100644
--- a/lisp/bbdb-mua.el
+++ b/lisp/bbdb-mua.el
@@ -37,7 +37,7 @@ (require 'bbdb)
(require 'bbdb-com)
(eval-and-compile
- (autoload 'gnus-fetch-field "gnus-utils")
+ (autoload 'gnus-fetch-original-field "gnus-utils")
(autoload 'gnus-summary-select-article "gnus-sum")
(defvar gnus-article-buffer)
@@ -95,7 +95,7 @@ (defun bbdb-message-header (header)
;; of a header if we request the value of the same header multiple times.
;; (We would reset the remember table each time we move on to a new message.)
(let* ((mua (bbdb-mua))
- (val (cond ((eq mua 'gnus) (gnus-fetch-field header))
+ (val (cond ((eq mua 'gnus) (gnus-fetch-original-field header))
((eq mua 'vm) (bbdb/vm-header header))
((eq mua 'rmail) (bbdb/rmail-header header))
((eq mua 'mh) (bbdb/mh-header header))
--8<---------------cut here---------------end--------------->8---
------------------------------------------------------------------------------
WhatsUp Gold - Download Free Network Management Software
The most intuitive, comprehensive, and cost-effective network
management toolset available today. Delivers lowest initial
acquisition cost and overall TCO of any competing solution.
http://p.sf.net/sfu/whatsupgold-sd
_______________________________________________
[email protected]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
