X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/040cb5bc369962c947396b293fc4b447532142de..6c3d0b2327b3bb35ee041e01dbd06ef98c159333:/dot/gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index fbbf626..ebf83f2 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -74,6 +74,11 @@
 ;; We may have the misfortune to talk to an Exchange server.
 (setq imap-enable-exchange-bug-workaround t)
 
+;; Save articles in mbox format by default, of course, and save an entire
+;; batch with the same name.
+(setq gnus-prompt-before-saving t
+      gnus-default-article-saver 'gnus-summary-save-in-mail)
+
 ;; Clean up properly when closing the summary.
 (defadvice gnus-summary-exit (before mdw-kill-debris compile activate)
   (gnus-summary-expand-window))
@@ -91,7 +96,11 @@
 ;;; Local configuration.
 
 ;; Fetching news from the local news server seems sensible.
-(setq gnus-select-method `(nntp ,(mdw-config 'nntp-server)))
+(setq gnus-select-method
+      (let ((server (mdw-config 'nntp-server)))
+	(if server
+	    `(nntp ,server)
+	  '(nnnil ""))))
 
 ;; Now load a local configuration file.
 (load "~/.gnus-local.el")