From 05d1c1ac3b62f9b991f5fc11369715c52311d9f1 Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Sun, 25 Dec 2022 00:53:27 -0500
Subject: * .emacs.d/lisp/bandali-gnus.el: Decode application/gzip attachments.
---
.emacs.d/lisp/bandali-gnus.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el
index f4e44e6..2ca03e4 100644
--- a/.emacs.d/lisp/bandali-gnus.el
+++ b/.emacs.d/lisp/bandali-gnus.el
@@ -379,13 +379,22 @@
(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
- 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)
--
cgit v1.2.3-83-g751a