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

* mu4e-utils.el: don't close mail retrieval window when there's an error

Browse Source
This commit is contained in:
djcb
2012-04-16 19:09:10 +03:00
parent bc13c49736
commit 862a657f35
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
emacs/mu4e-utils.el
View File

@ -319,13 +319,16 @@ processing takes part in the background, unless buf is non-nil."
mu4e-update-mail-name buf mu4e-get-mail-command)))
(message "Retrieving mail...")
(set-process-sentinel proc
(lambda (proc msg)
(message nil)
(mu4e-proc-index mu4e-maildir)
(let ((buf (process-buffer proc)))
(when (buffer-live-p buf)
(kill-buffer buf)))))
(set-process-query-on-exit-flag proc t)))
(lambda (proc msg)
(let ((status (process-status proc)) (code (process-exit-status proc)))
(message nil)
(if (or (not (eq status 'exit)) (/= code 0))
(message "Some error occured while retrieving mail")
(progn ;; update went well, now rerun the index
(mu4e-proc-index mu4e-maildir)
(let ((buf (process-buffer proc)))
(when (buffer-live-p buf)
(kill-buffer buf))))))))))
(defun mu4e-display-manual ()