* .emacs.d/lisp/bandali-gnus.el: Move spam out earlier.

[~bandali/configs] / .emacs.d / lisp / bandali-gnus.el

diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el
index febf30f..c2249a2 100644 (file)
--- a/.emacs.d/lisp/bandali-gnus.el
+++ b/.emacs.d/lisp/bandali-gnus.el
@@ -75,6 +75,8 @@
            (|
             ;; (: gnus-registry-split-fancy-with-parent)
             ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
            (|
             ;; (: gnus-registry-split-fancy-with-parent)
             ;; (: gnus-group-split-fancy "INBOX" t "INBOX")

+            ;; spam
+            ("X-Spam_action" "reject" "Junk")

             ;; keep debbugs emails in INBOX
             (list ".*<\\(.*\\)\\.debbugs\\.gnu\\.org>.*" "INBOX")
             ;; list moderation emails
             ;; keep debbugs emails in INBOX
             (list ".*<\\(.*\\)\\.debbugs\\.gnu\\.org>.*" "INBOX")
             ;; list moderation emails


@@ -112,8 +114,6 @@
             ;; ----------------------------------
             ;; legend: (u)nsubscribed | (d)ead
             ;; ----------------------------------
             ;; ----------------------------------
             ;; legend: (u)nsubscribed | (d)ead
             ;; ----------------------------------

-            ;; spam
-            ("X-Spam_action" "reject" "Junk")

             ;; otherwise, leave mail in INBOX
             "INBOX")))
          (nnimap
             ;; otherwise, leave mail in INBOX
             "INBOX")))
          (nnimap


@@ -212,8 +212,8 @@
   (add-hook 'gnus-group-mode-hook #'gnus-topic-mode)
   (add-hook 'gnus-group-mode-hook #'gnus-agent-mode))
 ;; global key bindings
   (add-hook 'gnus-group-mode-hook #'gnus-topic-mode)
   (add-hook 'gnus-group-mode-hook #'gnus-agent-mode))
 ;; global key bindings

-(global-set-key (kbd "C-c m") #'gnus-plugged)
-(global-set-key (kbd "C-c M") #'gnus-unplugged)
+(global-set-key (kbd "C-c g") #'gnus-plugged)
+(global-set-key (kbd "C-c G") #'gnus-unplugged)

 
 (with-eval-after-load 'gnus-art
   (setq
 
 (with-eval-after-load 'gnus-art
   (setq