X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/ee8e5aad8008c565d7a947e01ee544f22c8efe89..07d972e48ec5bb8c4eb851c3f3e2067c1b117f85:/dot/gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index 0cfe467..46b0a04 100644
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -74,10 +74,24 @@
 ;; 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))
 
+;; Configure article display a bit.
+(defun mdw-gnus-article-setup ()
+  (setq truncate-lines nil
+	truncate-partial-width-windows nil
+	word-wrap t
+	wrap-prefix (concat (propertize "..." 'face 'mdw-ellipsis-face)
+			    " ")))
+(add-hook 'gnus-article-mode-hook #'mdw-gnus-article-setup)
+
 ;;;--------------------------------------------------------------------------
 ;;; Local configuration.