Fix moving when not in split-view mode

Don't insist on having a window (which caused an error), and don't
refuse to move in that case.
This commit is contained in:
djcb 2015-10-13 07:39:24 +03:00
parent ada193c8fd
commit a7d611c902
2 changed files with 4 additions and 5 deletions

View File

@ -1422,8 +1422,7 @@ either `future' or `past'."
(defun mu4e-headers-forget-queries ()
"Forget all the complete query history."
(interactive)
(setq
;; note: don't forget the present one
(setq ;; note: don't forget the present one
mu4e~headers-query-past nil
mu4e~headers-query-future nil)
(mu4e-message "Query history cleared"))
@ -1449,8 +1448,7 @@ docid. Otherwise, return nil."
;; attempt to highlight the new line, display the message
(mu4e~headers-highlight docid)
;; update message view if it was already showing
(when (and mu4e-split-view (window-live-p mu4e~headers-view-win))
(mu4e-headers-view-message))
(mu4e-headers-view-message)
docid)))
(defun mu4e-headers-next (&optional n)

View File

@ -850,7 +850,8 @@ this view."
(unless docid
(mu4e-error "message without docid: action is not possible."))
(with-current-buffer mu4e~view-headers-buffer
(select-window (get-buffer-window))
(when (get-buffer-window)
(select-window (get-buffer-window)))
(if (mu4e~headers-goto-docid docid)
,@body
(mu4e-error "cannot find message in headers buffer."))))))