From b5527e20515643e07eec2d291ebd451ef2096066 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 20 Jan 2022 20:24:15 +0000
Subject: jao-notmuch clean-ups

---
 lib/net/jao-notmuch.el | 40 ++++------------------------------------
 1 file changed, 4 insertions(+), 36 deletions(-)

(limited to 'lib/net')

diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el
index fa33b37..8ff6053 100644
--- a/lib/net/jao-notmuch.el
+++ b/lib/net/jao-notmuch.el
@@ -167,15 +167,6 @@
                 (button-at (point)))
       (notmuch-show-toggle-part-invisibility))))
 
-(defun jao-notmuch--show-hidden-html ()
-  (when (save-excursion
-          (goto-char (point-min))
-          (re-search-forward "^\\[ text/html (hidden) \\]" nil t))
-    (jao-notmuch--toggle-mime)))
-
-(defun jao-notmuch-show-prefer-html ()
-  (add-hook 'notmuch-show-hook #'jao-notmuch--show-hidden-html))
-
 (defun jao-notmuch-toggle-mime-parts ()
   (interactive)
   (when (jao-notmuch-goto-message-buffer nil t)
@@ -183,45 +174,22 @@
     (jao-notmuch--toggle-mime)
     (jao-notmuch-goto-tree-buffer t)))
 
-(defvar-local jao-notmuch--showing-images nil)
-
-(defun jao-notmuch--setup-w3m-images (&optional activate)
-  (when (eq mm-text-html-renderer 'w3m)
-    (setq-local w3m-ignored-image-url-regexp
-                (unless jao-notmuch--showing-images
-                  notmuch-show-text/html-blocked-images))
-    (when activate
-      (setq-local scroll-margin 0)
-      (w3m-toggle-inline-images (if jao-notmuch--showing-images t 'turnoff)))))
-
-(defun jao-notmuch--w3m-toggle-images ()
-  (save-window-excursion
-    (when (or (derived-mode-p 'notmuch-show-mode)
-              (jao-notmuch-goto-message-buffer nil t))
-      (goto-char (point-min))
-      (when (re-search-forward "^\\[ text/html " nil t)
-        (when (looking-at-p "(hidden)")
-          (notmuch-show-toggle-part-invisibility))
-        (forward-line 1)
-        (setq jao-notmuch--showing-images (not jao-notmuch--showing-images))
-        (jao-notmuch--setup-w3m-images t)))))
-
 (defun jao-notmuch--shr-toggle-images ()
   (notmuch-tree-close-message-window)
   (let ((mm-text-html-renderer 'shr)
         (shr-blocked-images nil)
         (shr-inhibit-images nil)
-        (notmuch-show-text/html-blocked-images nil))
+        (notmuch-show-text/html-blocked-images nil)
+        (notmuch-multipart/alternative-discouraged '("text/plain")))
     (notmuch-tree-show-message nil)))
 
 (defun jao-notmuch-show-images ()
   (interactive)
   (if (eq mm-text-html-renderer 'w3m)
-      (jao-notmuch--w3m-toggle-images)
+      (when (fboundp 'jao-notmuch--w3m-toggle-images)
+        (jao-notmuch--w3m-toggle-images))
     (jao-notmuch--shr-toggle-images)))
 
-(add-hook 'notmuch-show-mode-hook #'jao-notmuch--setup-w3m-images)
-
 
 ;;;; Keeping track of unread messages in current tree view
 
-- 
cgit v1.2.3