dot/gnus.el, ...: Move general configuration into the common file.

[profile] / dot / gnus.el

diff --git a/dot/gnus.el b/dot/gnus.el
index 6c6f4c518e239ceeaaff7ec5d9a5dcb43f4f3d96..1625542e9c2b983a2abec0fe3a5aa3e3ccd21a2f 100644 (file)
--- a/dot/gnus.el
+++ b/dot/gnus.el
@@ -105,6 +105,18 @@ (defun mdw-gnus-article-setup ()
                            " ")))
 (add-hook 'gnus-article-mode-hook #'mdw-gnus-article-setup)
 
+;; Don't expire articles on selection if they're alread read.  This provides
+;; a handy way to prevent expiry, and actually forcing expiry isn't
+;; significantly harder.
+(remove-hook 'gnus-mark-article-hook
+            'gnus-summary-mark-read-and-unread-as-read)
+(add-hook 'gnus-mark-article-hook 'gnus-summary-mark-unread-as-read)
+
+;; Leave an oubliette level 7 for broken things which look like mailboxes.
+;; Otherwise Gnus keeps on resurrecting them and later realising that they're
+;; bogus.
+(setq gnus-level-unsubscribed 6)
+
 ;;;--------------------------------------------------------------------------
 ;;; Magic for sending mail the correct way.