On Sun May 8 2011 Leo wrote: > > 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.
I am not a Gnus expert. gnus-fetch-field was used already by BBDB v2. Is there someone reading this list who knows the (intended) difference between gnus-fetch-field and gnus-fetch-original-field? Well, the latter uses the undocumented internal variable gnus-original-article-buffer. But what does this mean in real life? Which headers are not available via gnus-fetch-field? Roland > --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 _______________________________________________ bbdb-info@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/bbdb-info BBDB Home Page: http://bbdb.sourceforge.net/
