I've reported the following problem in spring last year and it seems
it's still there in BBDB 2.34 (emacs 21.1):
I've set bbdb/mail-auto-create-p to bbdb-ignore-some-messages-hook. But
some of the entries in bbdb-ignore-some-messages-alist are ignored, i.e.
bbdb creates a record even though it shouldn't according to
bbdb-ignore-some-messages-alist. I debugged a bit and I think it has something
to do with the fact that bbdb searches in gnus-article-buffer (that contains
only a few selected headers) instead of in gnus-original-article-buffer.
So I went ahead and changed bbdb-header-start (in bbdb-hooks), i.e. I changed
bbdb-header-start from:
(defun bbdb-header-start ()
"Returns a marker at the beginning of the header block of the current
message. This will not necessarily be in the current buffer."
(cond ((memq major-mode '(vm-presentation-mode vm-mode vm-summary-mode))
(if vm-mail-buffer (set-buffer vm-mail-buffer))
(vm-start-of (car vm-message-pointer)))
((memq major-mode '(rmail-mode rmail-summary-mode))
(if (and (boundp 'rmail-buffer) rmail-buffer)
(set-buffer rmail-buffer))
(point-min-marker))
((memq major-mode
'(gnus-Group-mode gnus-Subject-mode gnus-Article-mode))
(set-buffer gnus-article-buffer)
(point-min-marker))
;; MH-E clause added by knabe.
((eq major-mode 'mh-folder-mode)
(mh-show)
(set-buffer mh-show-buffer)
(point-min-marker))
(t (point-min-marker))
))
to:
(defun bbdb-header-start ()
"Returns a marker at the beginning of the header block of the current
message. This will not necessarily be in the current buffer."
(cond ((memq major-mode
'(gnus-group-mode gnus-subject-mode gnus-article-mode))
(set-buffer gnus-original-article-buffer)
(point-min-marker))
((memq major-mode '(vm-presentation-mode vm-mode vm-summary-mode))
(if vm-mail-buffer (set-buffer vm-mail-buffer))
(vm-start-of (car vm-message-pointer)))
((memq major-mode '(rmail-mode rmail-summary-mode))
(if (and (boundp 'rmail-buffer) rmail-buffer)
(set-buffer rmail-buffer))
(point-min-marker))
((memq major-mode
'(gnus-Group-mode gnus-Subject-mode gnus-Article-mode))
(set-buffer gnus-article-buffer)
(point-min-marker))
;; MH-E clause added by knabe.
((eq major-mode 'mh-folder-mode)
(mh-show)
(set-buffer mh-show-buffer)
(point-min-marker))
(t (point-min-marker))
))
BTW I think the block with the capitalized gnus-..-modes is obsolete
Klaus
--
------------------------------------------
| Klaus Zeitler Lucent Technologies |
| Email: [EMAIL PROTECTED] |
------------------------------------------
---
Justice always prevails ... three times out of seven! -- Michael J. Wagner
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
