emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Ensure mu4e-view-mode-hook run after text insertion 

* mu4e/mu4e-view.el (mu4e-view): Do it.
This commit is contained in:
Thierry Volpiatto 2017-10-29 06:54:13 +01:00
parent af4f12c696
commit 0a36c8431a
No known key found for this signature in database
GPG Key ID: 28D17F5359F29997
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
mu4e/mu4e-view.el
View File

@ -313,15 +313,12 @@ marking if it still had that."
(mu4e~view-embedded-winbuf)
(get-buffer-create mu4e~view-buffer-name))))
(with-current-buffer buf
(unless (eq major-mode 'mu4e-view-mode)
(mu4e-view-mode))
(setq mu4e~view-msg msg)
(switch-to-buffer buf)
;; When MSG is unread, mu4e~view-mark-as-read-maybe will trigger
;; another call to mu4e-view (via mu4e~headers-update-handler as
;; the reply handler to mu4e~proc-move)
(when (or embedded (not (mu4e~view-mark-as-read-maybe msg)))
(let ((inhibit-read-only t))
(let ((inhibit-read-only t))
(when (or embedded (not (mu4e~view-mark-as-read-maybe msg)))
(erase-buffer)
(mu4e~delete-all-overlays)
(insert (mu4e-view-message-text msg))
@ -330,7 +327,10 @@ marking if it still had that."
(mu4e~fontify-signature)
(mu4e~view-make-urls-clickable)
(mu4e~view-show-images-maybe msg)
(when embedded (local-set-key "q" 'kill-buffer-and-window)))))))
(when embedded (local-set-key "q" 'kill-buffer-and-window)))
(unless (eq major-mode 'mu4e-view-mode)
(mu4e-view-mode))
(setq mu4e~view-msg msg)))))
(defun mu4e~view-get-property-from-event (prop)
"Get the property PROP at point, or the location of the mouse.