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

* mu4e: auto scroll down in the mail fetch window (thanks to chrisklaiber)

This commit is contained in:
djcb 2013-02-17 17:32:12 +02:00
parent 332554c2b0
commit 6fc99ad495
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
mu4e/mu4e-utils.el
View File

@ -670,19 +670,23 @@ successful, call FUNC (if non-nil) afterwards."
Currently the filter only checks if the command asks for a password
by matching the output against `mu4e~get-mail-password-regexp'.
The messages are inserted into the process buffer."
(save-current-buffer
(when (process-buffer proc)
(set-buffer (process-buffer proc)))
(let ((inhibit-read-only t))
;; Check whether process asks for a password and query user
(when (string-match mu4e~get-mail-password-regexp msg)
(if (process-get proc 'x-interactive)
(process-send-string proc
(concat (read-passwd mu4e~get-mail-ask-password) "\n"))
;; TODO kill process?
(mu4e-error "Unrecognized password request")))
(when (process-buffer proc)
(insert msg)))))
(when (string-match mu4e~get-mail-password-regexp msg)
(if (process-get proc 'x-interactive)
(process-send-string proc
(concat (read-passwd mu4e~get-mail-ask-password) "\n"))
;; TODO kill process?
(mu4e-error "Unrecognized password request")))
(when (process-buffer proc)
(let ((inhibit-read-only t)
(process-window (get-buffer-window (process-buffer proc))))
;; Insert at end of buffer. Leave point alone.
(with-current-buffer (process-buffer proc)
(goto-char (point-max))
(insert msg))
;; Auto-scroll unless user is interacting with the window.
(when (not (eq (selected-window) process-window))
(with-selected-window process-window
(goto-char (point-max)))))))
(defun mu4e-update-index ()
"Update the mu4e index."