bbdb auto create, GNUS-5.2.25, BBDB-1.50, XEmacs 19.14

bbdb auto create, GNUS-5.2.25, BBDB-1.50, XEmacs 19.14

[Richard Taylor]

Hi

I am trying to get BBDB to auto create entries when I read mail in
certain groups. I have the following in my ding setup:

(defun my-select-group-hook ()
  (setq bbdb/news-auto-create-p
	(cond ((string-match "mail\.misc" gnus-newsgroup-name) t)
	      ((string-match "mail\.ossg" gnus-newsgroup-name) t)
	      (t nil))))

(add-hook 'gnus-select-group-hook    'my-select-group-hook t)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus t)

For some reason my hook is being ignored (or I have got the logic
wrong) and all addresses are being auto created in all groups.

Can anyone see what I am doing wrong ?

I thought it might be the order in which I do the add-hooks but I have
tried the other way round and that does the same thing.

Richard


-- 

			------------------------------
Richard Taylor, N129, DRA Malvern, St Andrews Rd, Malvern, Worcs. WR14 3PS. UK.
   Tel: +44 1684 896028; Fax: +44 1684 894303; Email: rjt@rivers.dra.hmg.gb

Re: bbdb auto create, GNUS-5.2.25, BBDB-1.50, XEmacs 19.14

[Sudish Joseph]

In article <q191d1lndn.fsf@rivers.dra.hmg.gb>,
Richard Taylor <rjt@rivers.dra.hmg.gb> writes:
> (add-hook 'gnus-select-group-hook    'my-select-group-hook t)
> (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus t)

> For some reason my hook is being ignored (or I have got the logic
> wrong) and all addresses are being auto created in all groups.

Try using gnus-summary-mode-hook, it's run before any other group
specific hook.  It's also guaranteed to be in the correct buffer for
buffer-local variables.  

This may or may not cure your problem, but in general it's almost
always better to use gnus-summary-mode-hook for most stuff.

-- 
Sudish

Re: bbdb auto create, GNUS-5.2.25, BBDB-1.50, XEmacs 19.14

[Colin Rafferty]

On 03 Jul 1996, Richard Taylor <rjt@rivers.dra.hmg.gb> said:

> I am trying to get BBDB to auto create entries when I read mail in
> certain groups. I have the following in my ding setup:

> (defun my-select-group-hook ()
>   (setq bbdb/news-auto-create-p
> 	(cond ((string-match "mail\.misc" gnus-newsgroup-name) t)
> 	      ((string-match "mail\.ossg" gnus-newsgroup-name) t)
> 	      (t nil))))

> (add-hook 'gnus-select-group-hook    'my-select-group-hook t)

The problem is that you have to set it in the *Article* buffer.  I do
the following:

(make-variable-buffer-local 'bbdb/news-auto-create-p)
(add-hook 'gnus-summary-mode-hook
	  (lambda ()
	    (save-excursion
	      (let ((auto (and (string-match "^nnml:" group)
			       'bbdb-ignore-some-messages-hook)))
		(setq bbdb/news-auto-create-p auto)
		(set-buffer gnus-article-buffer)
		(setq bbdb/news-auto-create-p auto)))))
-- 
Colin