(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 ?
                 )))

  (gnus))


Reply via email to