19953 anaran <string>conditional group activation based on domain</string> (cond ((string-match "at.work.com" domain) (setq gnus-activate-level 3) (setq gnus-activate-foreign-newsgroups 3) (setq gnus-group-default-list-level 3) (setq pop3-delete-retrieved-mail nil)) (t (setq gnus-activate-level 4) (setq gnus-activate-foreign-newsgroups 4) (setq gnus-group-default-list-level 4) ;; too early when XEmacs initializes! ;; (gnus-server-open-all-servers) (setq pop3-delete-retrieved-mail t))) 3356459009 #xemacs