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

* mu4e-headers.el: don't try to view messages where there are none, make 

'Waiting for message' read-only
This commit is contained in:
djcb 2012-06-27 19:01:58 +03:00
parent 006f1ece1f
commit 38d92b98c2
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
emacs/mu4e-headers.el
View File

@ -1020,9 +1020,11 @@ threading."
(setq mu4e~headers-loading-buf (setq mu4e~headers-loading-buf
(get-buffer-create " *mu4e-loading*")) (get-buffer-create " *mu4e-loading*"))
(with-current-buffer mu4e~headers-loading-buf (with-current-buffer mu4e~headers-loading-buf
(erase-buffer) (let ((inhibit-read-only t))
(insert (propertize "Waiting for message..." (erase-buffer)
'face 'mu4e-system-face 'intangible t)))) (insert (propertize "Waiting for message..."
'face 'mu4e-system-face 'intangible t)))
(setq buffer-read-only t)))
mu4e~headers-loading-buf) mu4e~headers-loading-buf)
(defun mu4e-headers-view-message () (defun mu4e-headers-view-message ()
@ -1034,9 +1036,11 @@ current window. "
(interactive) (interactive)
(unless (eq major-mode 'mu4e-headers-mode) (unless (eq major-mode 'mu4e-headers-mode)
(error "Must be in mu4e-headers-mode (%S)" major-mode)) (error "Must be in mu4e-headers-mode (%S)" major-mode))
(let* ((docid (mu4e~headers-docid-at-point)) (let* ((docid (or (mu4e~headers-docid-at-point)
(error "No message at point")))
(viewwin (mu4e~headers-redraw-get-view-window))) (viewwin (mu4e~headers-redraw-get-view-window)))
(unless (window-live-p viewwin) (error "Cannot get a message view")) (unless (window-live-p viewwin)
(error "Cannot get a message view"))
(select-window viewwin) (select-window viewwin)
(switch-to-buffer (mu4e~headers-get-loading-buf)) (switch-to-buffer (mu4e~headers-get-loading-buf))
(mu4e~proc-view docid mu4e-view-show-images))) (mu4e~proc-view docid mu4e-view-show-images)))