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

* mu4e-headers.el: don't create many message-views

This commit is contained in:
djcb 2012-06-24 10:38:26 +03:00
parent 0af32c4735
commit 0b808aff91
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
emacs/mu4e-headers.el
View File

@ -137,7 +137,7 @@ PREDICATE-FUNC as PARAM. This is useful for getting user-input.")
(defvar mu4e~headers-view-win nil (defvar mu4e~headers-view-win nil
"The view window connected to this headers view.") "The view window connected to this headers view.")
(defvar mu4e~headers-sortfield-choices (defvar mu4e~headers-sortfield-choices
'( ("date" . date) '( ("date" . date)
("from" . from) ("from" . from)
@ -147,7 +147,7 @@ PREDICATE-FUNC as PARAM. This is useful for getting user-input.")
("to" . to)) ("to" . to))
"List of cells describing the various sort-options (in the format "List of cells describing the various sort-options (in the format
needed for `mu4e-read-option'.") needed for `mu4e-read-option'.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun mu4e~headers-clear () (defun mu4e~headers-clear ()
@ -525,6 +525,8 @@ after the end of the search results."
(mu4e~mark-initialize) ;; initialize the marking subsystem (mu4e~mark-initialize) ;; initialize the marking subsystem
(hl-line-mode 1) (hl-line-mode 1)
(setq header-line-format (setq header-line-format
(cons (cons
(make-string (make-string
@ -1012,6 +1014,19 @@ threading."
(unless dont-refresh (unless dont-refresh
(mu4e-headers-rerun-search))) (mu4e-headers-rerun-search)))
(defvar mu4e~headers-loading-buf nil
"A buffer for loading a message view.")
(defun mu4e~headers-get-loading-buf ()
"Get a buffer to give feedback while loading a message view."
(unless (buffer-live-p mu4e~headers-loading-buf)
(setq mu4e~headers-loading-buf
(get-buffer-create " *mu4e-loading*"))
(with-current-buffer mu4e~headers-loading-buf
(erase-buffer)
(insert (propertize "Waiting for message..."
'face 'mu4e-system-face 'intangible t))))
mu4e~headers-loading-buf)
(defun mu4e-headers-view-message () (defun mu4e-headers-view-message ()
"View message at point. If there's an existing window for the "View message at point. If there's an existing window for the
@ -1024,15 +1039,10 @@ current window. "
(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 (mu4e~headers-docid-at-point))
(viewwin (mu4e~headers-redraw-get-view-window))) (viewwin (mu4e~headers-redraw-get-view-window)))
(unless (window-live-p viewwin) (unless (window-live-p viewwin) (error "Cannot get a message view"))
(error "Cannot get a message view"))
(select-window viewwin) (select-window viewwin)
(switch-to-buffer (get-buffer-create mu4e~view-buffer-name)) (switch-to-buffer (mu4e~headers-get-loading-buf))
(let ((inhibit-read-only t)) (mu4e~proc-view docid mu4e-view-show-images)))
(erase-buffer)
(insert (propertize "Waiting for message..."
'face 'mu4e-system-face 'intangible t))
(mu4e~proc-view docid mu4e-view-show-images))))
(defun mu4e-headers-rerun-search () (defun mu4e-headers-rerun-search ()
"Rerun the search for the last search expression." "Rerun the search for the last search expression."