* .emacs.d/lisp/bandali-gnus.el: Decode application/gzip attachments.

[~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 53ae41e..2ca03e4 100644 (file)
--- a/.emacs.d/lisp/bandali-gnus.el
+++ b/.emacs.d/lisp/bandali-gnus.el
@@ -91,6 +91,8 @@
             (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
             ;; fsf
             (list ".*<\\(.*\\)\\.fsf\\.org>.*" "l.\\1")
             (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
             ;; fsf
             (list ".*<\\(.*\\)\\.fsf\\.org>.*" "l.\\1")

+            ;; debian
+            (list ".*<\\(.*\\)\\.alioth-lists\\.debian\\.net>.*" "l.\\1")

             ;; gnus
             (list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1")
             ;; libreplanet
             ;; gnus
             (list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1")
             ;; libreplanet


@@ -294,12 +296,6 @@
 (defvar b/sfl-p nil)
 (with-eval-after-load 'gnus-msg
   (let ((bandali "Amin Bandali (https://kelar.org/~bandali)"))
 (defvar b/sfl-p nil)
 (with-eval-after-load 'gnus-msg
   (let ((bandali "Amin Bandali (https://kelar.org/~bandali)"))

-    (defvar b/canonical-signature
-      (mapconcat
-       #'identity
-       `(,bandali
-         "Software Engineer (Desktop), Canonical")
-       "\n"))

     (defvar b/csc-signature
       (mapconcat
        #'identity
     (defvar b/csc-signature
       (mapconcat
        #'identity


@@ -334,7 +330,7 @@
      ("nnimap\\+canonical:.*"
       (address "amin.bandali@canonical.com")
       ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")
      ("nnimap\\+canonical:.*"
       (address "amin.bandali@canonical.com")
       ("X-Message-SMTP-Method" "smtp smtp.canonical.com 587")

-      (signature b/canonical-signature)
+      (signature nil)

       (gcc "nnimap+canonical:Sent"))
      ("nnimap\\+csc:.*"
       (address "bandali@csclub.uwaterloo.ca")
       (gcc "nnimap+canonical:Sent"))
      ("nnimap\\+csc:.*"
       (address "bandali@csclub.uwaterloo.ca")


@@ -383,13 +379,22 @@
 (with-eval-after-load 'gnus-dired
   (add-hook 'dired-mode-hook 'gnus-dired-mode))
 
 (with-eval-after-load 'gnus-dired
   (add-hook 'dired-mode-hook 'gnus-dired-mode))
 

+(with-eval-after-load 'mm-archive
+  (add-to-list
+   'mm-archive-decoders
+   '("application/gzip" nil "gunzip" "-S" ".zip" "-kd" "%f" "-r")))
+

 (with-eval-after-load 'mm-decode
   (setq
    ;; mm-attachment-override-types `("text/x-diff" "text/x-patch"
    ;;                                ,@mm-attachment-override-types)
    mm-discouraged-alternatives '("text/html" "text/richtext")
    mm-decrypt-option 'known
 (with-eval-after-load 'mm-decode
   (setq
    ;; mm-attachment-override-types `("text/x-diff" "text/x-patch"
    ;;                                ,@mm-attachment-override-types)
    mm-discouraged-alternatives '("text/html" "text/richtext")
    mm-decrypt-option 'known

-   mm-verify-option 'known))
+   mm-verify-option 'known)
+  (add-to-list
+   'mm-inline-media-tests
+   `("application/gzip" mm-archive-dissect-and-inline identity))
+  (add-to-list 'mm-inlined-types "application/gzip" 'append))

 
 (with-eval-after-load 'mm-uu
   (when (version< "27" emacs-version)
 
 (with-eval-after-load 'mm-uu
   (when (version< "27" emacs-version)