> (defun news ()
> (interactive)
> (setq gnus-nntp-server "ingres")
> (setq gnus-select-group-hook
> '(lambda ()
> (setq bbdb/news-auto-create-p
> (string< "gnu" gnus-newsgroup-name)
> ;; This isn't quite right as I want to match all groups starting
> ;; "gnu." Any offers from you Lisp wizards ?
> )))
(string-match "^gnu" gnus-newsgroup-name)
--
Colin Rafferty, Lehman Brothers <[EMAIL PROTECTED]>
GCS d++(-) -p+(---) c++(++++) !l u++ e++ m-- s++/- n+ h-- f+ !g w+ t++@ r- y++
PGP-keyID: C4A60B; fingerprint: 91FED077 BD5588B6 30B372D2 F9172162
Don't know what pgp is? Ask me!
