* lisp/bandali-gnus.el: Some automatic processing for incoming spam

First, display both X-Spam-Flag and X-Spam-Level headers, and move
messages to Junk if their X-Spam-Flag is YES.

diff --git a/lisp/bandali-gnus.el b/lisp/bandali-gnus.el
index de01c0f..f85f694 100644 (file)
--- a/lisp/bandali-gnus.el
+++ b/lisp/bandali-gnus.el
@@ -91,6 +91,8 @@
                                   ;; ----------------------------------
                                   ;; legend: (u)nsubscribed | (d)ead
                                   ;; ----------------------------------
                                   ;; ----------------------------------
                                   ;; legend: (u)nsubscribed | (d)ead
                                   ;; ----------------------------------

+                                  ;; spam
+                                  ("X-Spam-Flag" "YES" "Junk")

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


@@ -299,6 +301,8 @@
                              "^Resent-From:"
                              "^User-Agent:"
                              "^X-detected-operating-system:"
                              "^Resent-From:"
                              "^User-Agent:"
                              "^X-detected-operating-system:"

+                             "^X-Spam-Flag:"
+                             "^X-Spam-Level:"

                              "^Message-ID:"
                              ;; "^References:"
                              "^List-Id:"
                              "^Message-ID:"
                              ;; "^References:"
                              "^List-Id:"