alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Enable the user to control which external images not to display

Browse Source
This commit is contained in:
Christophe Troestler
2021-04-04 20:27:22 +02:00
parent f0835b3391
commit afaf613a92
1 changed files with 32 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
mu4e/mu4e-view-gnus.el
View File

@ -37,6 +37,31 @@
(defvar helm-comp-read-use-marked) (defvar helm-comp-read-use-marked)
(defvar mu4e~view-rendering nil) (defvar mu4e~view-rendering nil)
(defcustom mu4e-view-blocked-images "."
"Regexp matching image URLs to be blocked, or nil meaning not
to block. Beware that loading external images may lower your privacy.
This can also be a function that takes a message as argument and
returns a regexp. For example, if you want to see the all images
in Github notifications (which contain no code to personally
identify you, Github will only be able to tell someone from your
IP has accessed the image), you can set this variable to the
following function:
(defun my/mu4e-view-blocked-images (msg)
(if (mu4e-message-contact-field-matches
msg :from \"notifications@github.com\")
nil \".\"))
Note that cid images that are embedded in a message won’t be blocked."
:group 'mu4e-view
:type '(choice (const :tag "Allow all" nil)
(regexp :tag "Regular expression")
(function :tag "Use a function")))
(defvar mu4e-view-inhibit-images gnus-inhibit-images
"Non-nil means inhibit displaying of images inline in the article body.")
;;; Main ;;; Main
;; remember the mime-handles, so we can clean them up when ;; remember the mime-handles, so we can clean them up when
@ -72,7 +97,8 @@
(run-hooks 'gnus-article-decode-hook)) (run-hooks 'gnus-article-decode-hook))
(let ((mu4e~view-rendering t) ; customize gnus in mu4e (let ((mu4e~view-rendering t) ; customize gnus in mu4e
(max-specpdl-size mu4e-view-max-specpdl-size) (max-specpdl-size mu4e-view-max-specpdl-size)
(gnus-blocked-images ".") ;; don't load external images. (gnus-blocked-images (mu4e-view-blocked-images-fn msg))
(gnus-inhibit-images mu4e-view-inhibit-images)
;; Possibly add headers (before "Attachments") ;; Possibly add headers (before "Attachments")
(gnus-display-mime-function (mu4e~view-gnus-display-mime msg)) (gnus-display-mime-function (mu4e~view-gnus-display-mime msg))
(gnus-icalendar-additional-identities (gnus-icalendar-additional-identities
@ -86,6 +112,11 @@
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(add-hook 'kill-buffer-hook #'mu4e~view-kill-buffer-hook-fn))) (add-hook 'kill-buffer-hook #'mu4e~view-kill-buffer-hook-fn)))
(defun mu4e-view-blocked-images-fn (msg)
(if (functionp mu4e-view-blocked-images)
(funcall mu4e-view-blocked-images msg)
mu4e-view-blocked-images))
(defun mu4e~view-kill-buffer-hook-fn () (defun mu4e~view-kill-buffer-hook-fn ()
;; cleanup the mm-* buffers that the view spawns ;; cleanup the mm-* buffers that the view spawns
(when mu4e~gnus-article-mime-handles (when mu4e~gnus-article-mime-handles