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

* mu4e: set mu4e~view-msg, mu4e~view-headers-buffer *after* setting 

mu4e-view-mode

  (this fixes the 'view-raw' case for new messages)
This commit is contained in:
djcb 2012-10-28 19:30:27 +02:00
parent b370eb9bd3
commit d5d0b11b98
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-view.el
View File

@ -216,9 +216,6 @@ marking if it still had that."
(get-buffer-create mu4e~view-buffer-name))))
(with-current-buffer buf
(let ((inhibit-read-only t))
(setq ;; buffer local
mu4e~view-msg msg
mu4e~view-headers-buffer headersbuf)
(erase-buffer)
(insert (mu4e-view-message-text msg))
(switch-to-buffer buf)
@ -237,7 +234,10 @@ marking if it still had that."
;; message
(mu4e~view-mark-as-read-maybe))
(mu4e-view-mode)))))
(mu4e-view-mode)
(setq ;; buffer local
mu4e~view-msg msg
mu4e~view-headers-buffer headersbuf)))))
(defun mu4e~view-construct-header (field val &optional dont-propertize-val)
@ -1140,9 +1140,8 @@ user that unmarking only works in the header list."
(defun mu4e-view-raw-message ()
"Display the raw contents of message at point in a new buffer."
(interactive)
(let* ((msg (mu4e-message-at-point))
(path (mu4e-message-field msg :path))
(buf (get-buffer-create mu4e~view-raw-buffer-name)))
(let ((path (mu4e-message-field-at-point :path))
(buf (get-buffer-create mu4e~view-raw-buffer-name)))
(unless (and path (file-readable-p path))
(mu4e-error "Not a readable file: %S" path))
(with-current-buffer buf