mu4e-view: normalize internal name
mu4e~gnus-article-mime-handles => mu4e--view-gnus-article-mime-handles
This commit is contained in:
@ -63,14 +63,14 @@ See `mu4e--uniquify-file-name' for an example."
|
|||||||
|
|
||||||
;; remember the mime-handles, so we can clean them up when
|
;; remember the mime-handles, so we can clean them up when
|
||||||
;; we quit this buffer.
|
;; we quit this buffer.
|
||||||
(defvar-local mu4e~gnus-article-mime-handles nil)
|
(defvar-local mu4e--view-gnus-article-mime-handles nil)
|
||||||
(put 'mu4e~gnus-article-mime-handles 'permanent-local t)
|
(put 'mu4e--view-gnus-article-mime-handles 'permanent-local t)
|
||||||
|
|
||||||
(defun mu4e--view-kill-mime-handles ()
|
(defun mu4e--view-kill-mime-handles ()
|
||||||
"Kill cached MIME-handles, if any."
|
"Kill cached MIME-handles, if any."
|
||||||
(when mu4e~gnus-article-mime-handles
|
(when mu4e--view-gnus-article-mime-handles
|
||||||
(mm-destroy-parts mu4e~gnus-article-mime-handles)
|
(mm-destroy-parts mu4e--view-gnus-article-mime-handles)
|
||||||
(setq mu4e~gnus-article-mime-handles nil)))
|
(setq mu4e--view-gnus-article-mime-handles nil)))
|
||||||
|
|
||||||
;;; MIME-parts
|
;;; MIME-parts
|
||||||
(defvar-local mu4e--view-mime-parts nil
|
(defvar-local mu4e--view-mime-parts nil
|
||||||
|
|||||||
@ -645,7 +645,7 @@ activates URLs (in plain-text mode only)."
|
|||||||
(unless (mu4e--view-html-displayed-p)
|
(unless (mu4e--view-html-displayed-p)
|
||||||
(mu4e--view-activate-urls))
|
(mu4e--view-activate-urls))
|
||||||
(kill-local-variable 'bookmark-make-record-function)
|
(kill-local-variable 'bookmark-make-record-function)
|
||||||
(setq mu4e~gnus-article-mime-handles gnus-article-mime-handles
|
(setq mu4e--gnus-article-mime-handles gnus-article-mime-handles
|
||||||
gnus-article-decoded-p gnus-article-decode-hook)
|
gnus-article-decoded-p gnus-article-decode-hook)
|
||||||
(set-buffer-modified-p nil)
|
(set-buffer-modified-p nil)
|
||||||
(add-hook 'kill-buffer-hook #'mu4e--view-kill-mime-handles))
|
(add-hook 'kill-buffer-hook #'mu4e--view-kill-mime-handles))
|
||||||
|
|||||||
Reference in New Issue
Block a user