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

mu4e: auto decode quoted-printable, base64 (gnus)

Browse Source 
Set things up so gnus article mode decodes base64 and quoted-printable
messages automatically.

Don't try to set up URL links.
This commit is contained in:
djcb
2018-06-07 13:08:53 +03:00
parent 67eea5fadd
commit ee6e91da9b
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
mu4e/mu4e-view.el
View File

@ -357,22 +357,27 @@ article-mode."
(switch-to-buffer (get-buffer-create mu4e~view-buffer-name)) (switch-to-buffer (get-buffer-create mu4e~view-buffer-name))
(erase-buffer) (erase-buffer)
(unless marked-read (unless marked-read
;; when we're being marked as read, no need to start rendering the messages; just the minimail ;; when we're being marked as read, no need to start rendering the messages; just the minimal
;; so (update... ) can find us. ;; so (update... ) can find us.
(insert-file-contents path) (insert-file-contents path)
(setq gnus-summary-buffer (get-buffer-create " *appease-gnus*")) (setq
(let ((gnu-article-buffer (current-buffer))) gnus-summary-buffer (get-buffer-create " *appease-gnus*")
(gnus-article-prepare-display)) gnus-original-article-buffer (current-buffer))
(mu4e~view-make-urls-clickable) (article-de-base64-unreadable)
(mu4e~view-construct-attachments-header msg)) (article-de-quoted-unreadable)
(mu4e-view-mode) (gnus-article-prepare-display)
(setq mu4e~view-msg msg) (mu4e~view-construct-attachments-header msg)
(setq gnus-article-buffer (current-buffer)) (mu4e-view-mode)
(run-hooks 'gnus-article-decode-hook) (setq mu4e~view-msg msg)
;; Mark article as decoded or not. (let* ((gnus-article-decode-hook
(setq gnus-article-decoded-p gnus-article-decode-hook) '( article-decode-charset
(set-buffer-modified-p nil) article-decode-encoded-words
(read-only-mode))) article-decode-group-name
article-decode-idna-rhs)))
(run-hooks 'gnus-article-decode-hook)
(setq gnus-article-decoded-p gnus-article-decode-hook))
(set-buffer-modified-p nil)
(read-only-mode))))
(defun mu4e~view-get-property-from-event (prop) (defun mu4e~view-get-property-from-event (prop)
"Get the property PROP at point, or the location of the mouse. "Get the property PROP at point, or the location of the mouse.