@ -480,6 +480,7 @@ list."
|
|||||||
|
|
||||||
(defvar mu4e-view-active-urls-keymap
|
(defvar mu4e-view-active-urls-keymap
|
||||||
(let ((map (make-sparse-keymap)))
|
(let ((map (make-sparse-keymap)))
|
||||||
|
(define-key map [down-mouse-1] 'mu4e~view-browse-url-from-binding)
|
||||||
(define-key map [mouse-1] 'mu4e~view-browse-url-from-binding)
|
(define-key map [mouse-1] 'mu4e~view-browse-url-from-binding)
|
||||||
(define-key map (kbd "M-<return>") 'mu4e~view-browse-url-from-binding)
|
(define-key map (kbd "M-<return>") 'mu4e~view-browse-url-from-binding)
|
||||||
map)
|
map)
|
||||||
|
|||||||
@ -45,7 +45,7 @@
|
|||||||
(put 'mu4e~gnus-article-mime-handles 'permanent-local t)
|
(put 'mu4e~gnus-article-mime-handles 'permanent-local t)
|
||||||
|
|
||||||
(defun mu4e~view-gnus (msg)
|
(defun mu4e~view-gnus (msg)
|
||||||
"View MSG using Gnus' article mode. Experimental."
|
"View MSG using Gnus' article mode."
|
||||||
(let ((path (mu4e-message-field msg :path))
|
(let ((path (mu4e-message-field msg :path))
|
||||||
(inhibit-read-only t)
|
(inhibit-read-only t)
|
||||||
(mm-decrypt-option 'known)
|
(mm-decrypt-option 'known)
|
||||||
|
|||||||
Reference in New Issue
Block a user