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

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

Browse Source 
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
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)))) (get-buffer-create mu4e~view-buffer-name))))
(with-current-buffer buf (with-current-buffer buf
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(setq ;; buffer local
mu4e~view-msg msg
mu4e~view-headers-buffer headersbuf)
(erase-buffer) (erase-buffer)
(insert (mu4e-view-message-text msg)) (insert (mu4e-view-message-text msg))
(switch-to-buffer buf) (switch-to-buffer buf)
@ -237,7 +234,10 @@ marking if it still had that."
;; message ;; message
(mu4e~view-mark-as-read-maybe)) (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) (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 () (defun mu4e-view-raw-message ()
"Display the raw contents of message at point in a new buffer." "Display the raw contents of message at point in a new buffer."
(interactive) (interactive)
(let* ((msg (mu4e-message-at-point)) (let ((path (mu4e-message-field-at-point :path))
(path (mu4e-message-field msg :path)) (buf (get-buffer-create mu4e~view-raw-buffer-name)))
(buf (get-buffer-create mu4e~view-raw-buffer-name)))
(unless (and path (file-readable-p path)) (unless (and path (file-readable-p path))
(mu4e-error "Not a readable file: %S" path)) (mu4e-error "Not a readable file: %S" path))
(with-current-buffer buf (with-current-buffer buf