debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: honour notmuch-show-text/html-blocked-images in w3m messages

Browse source 
When mm-text-html-renderer is set to 'w3m, the variable playing the
role of a regular expression for blocked images is
w3m-ignored-image-url-regexp.  We bind it when the renderer is not
'shr.
This commit is contained in:
jao 2021-08-04 01:02:41 +01:00 committed by David Bremner
parent 3fc2e5f23b
commit c1f542d68a
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
emacs/notmuch-show.el
View file

@ -59,6 +59,7 @@
(defvar shr-blocked-images) (defvar shr-blocked-images)
(defvar gnus-blocked-images) (defvar gnus-blocked-images)
(defvar shr-content-function) (defvar shr-content-function)
(defvar w3m-ignored-image-url-regexp)
;;; Options ;;; Options
@ -823,7 +824,8 @@ will return nil if the CID is unknown or cannot be retrieved."
(let ((mm-inline-text-html-with-w3m-keymap nil) (let ((mm-inline-text-html-with-w3m-keymap nil)
;; FIXME: If we block an image, offer a button to load external ;; FIXME: If we block an image, offer a button to load external
;; images. ;; images.
(gnus-blocked-images notmuch-show-text/html-blocked-images)) (gnus-blocked-images notmuch-show-text/html-blocked-images)
(w3m-ignored-image-url-regexp notmuch-show-text/html-blocked-images))
(notmuch-show-insert-part-*/* msg part content-type nth depth button)))) (notmuch-show-insert-part-*/* msg part content-type nth depth button))))
;;; Functions used by notmuch-show--insert-part-text/html-shr ;;; Functions used by notmuch-show--insert-part-text/html-shr