~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dot/xinitrc: Decrease the amount of space reserved on the right.
[profile]
/
dot
/
gnus.el
diff --git
a/dot/gnus.el
b/dot/gnus.el
index
fbbf626
..
ebf83f2
100644
(file)
--- 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)
;; 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))
;; 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.
;;; 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")
;; Now load a local configuration file.
(load "~/.gnus-local.el")