* lisp/bandali-gnus.el: SFL mail setup

diff --git a/lisp/bandali-gnus.el b/lisp/bandali-gnus.el
index 3759dcf..0c5dc97 100644 (file)
--- a/lisp/bandali-gnus.el
+++ b/lisp/bandali-gnus.el
@@ -130,7 +130,11 @@
                                   ;; spam
                                   ("X-Spam-Flag" "YES" "Junk")
                                   ;; catch-all
                                   ;; spam
                                   ("X-Spam-Flag" "YES" "Junk")
                                   ;; catch-all

-                                  "INBOX"))))
+                                  "INBOX")))
+     (nnimap "sfl"
+             (nnimap-stream tls)
+             (nnimap-address "mail.savoirfairelinux.com")
+             (nnimap-user "amin.bandali")))

    gnus-message-archive-group "nnimap+gnu:INBOX"
    gnus-parameters
    '(("l\\.atreus"
    gnus-message-archive-group "nnimap+gnu:INBOX"
    gnus-parameters
    '(("l\\.atreus"


@@ -275,6 +279,7 @@
       (subscribed . t))
      ("nnimap\\+uwaterloo:.*"
       (gcc-self . t)))
       (subscribed . t))
      ("nnimap\\+uwaterloo:.*"
       (gcc-self . t)))

+   ;; nnimap-record-commands t

    gnus-large-newsgroup  50
    gnus-home-directory   (b/var "gnus/")
    gnus-directory        (concat gnus-home-directory "news/")
    gnus-large-newsgroup  50
    gnus-home-directory   (b/var "gnus/")
    gnus-directory        (concat gnus-home-directory "news/")


@@ -372,16 +377,20 @@
                                 gnus-thread-sort-by-date)))
 
 (use-package gnus-msg
                                 gnus-thread-sort-by-date)))
 
 (use-package gnus-msg

+  :init
+  (defvar b/sfl-p nil)

   :config
   (defvar b/shemshak-signature "Amin Bandali
 https://shemshak.org/~bandali")
   (defvar b/uwaterloo-signature "Amin Bandali, MMath
   :config
   (defvar b/shemshak-signature "Amin Bandali
 https://shemshak.org/~bandali")
   (defvar b/uwaterloo-signature "Amin Bandali, MMath

-Cheriton School of Computer Science
-University of Waterloo

 https://bndl.org")
   (defvar b/csc-signature "Amin Bandali | https://bndl.org
 System Administrator, Systems Committee
 Computer Science Club, University of Waterloo")
 https://bndl.org")
   (defvar b/csc-signature "Amin Bandali | https://bndl.org
 System Administrator, Systems Committee
 Computer Science Club, University of Waterloo")

+  (defvar b/sfl-signature "Amin Bandali
+Free Software Consultant
+Savoir-faire Linux
+GNU Jami: bandali")

   (setq gnus-message-replysign t
         gnus-posting-styles
         '((".*"
   (setq gnus-message-replysign t
         gnus-posting-styles
         '((".*"


@@ -409,9 +418,15 @@ Computer Science Club, University of Waterloo")
           ("nnimap\\+csc:.*"
            (address "bandali@csclub.uwaterloo.ca")
            (signature b/csc-signature)
           ("nnimap\\+csc:.*"
            (address "bandali@csclub.uwaterloo.ca")
            (signature b/csc-signature)

-           (gcc "nnimap+csc:Sent"))))
+           (gcc "nnimap+csc:Sent"))
+          ("nnimap\\+sfl:.*"
+           (address "amin.bandali@savoirfairelinux.com")
+           (signature b/sfl-signature)
+           (gcc "nnimap+sfl:Sent")
+           (eval (setq-local b/sfl-p t)))))

   :hook (gnus-message-setup . (lambda ()
   :hook (gnus-message-setup . (lambda ()

-                                (unless (mml-secure-is-encrypted-p)
+                                (unless (or (mml-secure-is-encrypted-p)
+                                            b/sfl-p)

                                   (mml-secure-message-sign)))))
 
 (use-package gnus-topic
                                   (mml-secure-message-sign)))))
 
 (use-package gnus-topic