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

Merge pull request #1900 from Chris00/master

Browse Source 
Fix the decoding of accents in Gnus view
This commit is contained in:
Dirk-Jan C. Binnema
2021-01-18 08:22:30 +02:00
committed by GitHub
parent 53c9526871 a1664d2189
commit 86e1515c71
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
mu4e/mu4e-view.el
View File

@ -387,12 +387,20 @@ article-mode."
"multipart/encrypted") "multipart/encrypted")
gnus-buttonized-mime-types))) gnus-buttonized-mime-types)))
(switch-to-buffer (get-buffer-create mu4e~view-buffer-name)) (switch-to-buffer (get-buffer-create mu4e~view-buffer-name))
(erase-buffer) (buffer-disable-undo)
(mm-insert-file-contents path nil nil nil nil t) (insert-file-contents-literally path nil nil nil t)
(mm-enable-multibyte)
(setq (setq
gnus-summary-buffer (get-buffer-create " *appease-gnus*") gnus-summary-buffer (get-buffer-create " *appease-gnus*")
gnus-original-article-buffer (current-buffer)) gnus-original-article-buffer (current-buffer))
(run-hooks 'gnus-article-decode-hook) (let* ((ct (mail-fetch-field "Content-Type"))
(ct (and ct (mail-header-parse-content-type ct)))
(charset (mail-content-type-get ct 'charset))
(charset (and charset (intern charset)))
(gnus-newsgroup-charset
(if (and charset (coding-system-p charset)) charset
(detect-coding-region (point-min) (point-max) t))))
(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 ".") ;; don't load external images.
@ -403,7 +411,7 @@ article-mode."
(gnus-article-prepare-display)) (gnus-article-prepare-display))
(setq mu4e~gnus-article-mime-handles gnus-article-mime-handles) (setq mu4e~gnus-article-mime-handles gnus-article-mime-handles)
(setq mu4e~view-message msg) (setq mu4e~view-message msg)
;; `mu4e-view-mode' derive from `gnus-article-mode'. ;; `mu4e-view-mode' derive from `gnus-article-mode'.
(mu4e-view-mode) (mu4e-view-mode)
(setq gnus-article-decoded-p gnus-article-decode-hook) (setq gnus-article-decoded-p gnus-article-decode-hook)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)