summaryrefslogtreecommitdiffhomepage
path: root/lib/net/jao-notmuch.el
diff options
context:
space:
mode:
Diffstat (limited to 'lib/net/jao-notmuch.el')
-rw-r--r--lib/net/jao-notmuch.el40
1 files changed, 4 insertions, 36 deletions
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