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

* mu4e.el, mu4e-proc.el: make updating mail asynchronous

Browse Source 
- run update process in an inferior process
  - don't use emacs24isms
This commit is contained in:
Dirk-Jan C. Binnema
2012-02-27 21:48:07 +02:00
parent 85be02c195
commit 9021a2ca16
2 changed files with 35 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
emacs/mu4e-proc.el
View File

@ -436,25 +436,6 @@ The result will be delivered to the function registered as
(error "Unsupported compose-type")) (error "Unsupported compose-type"))
(mu4e-proc-send-command "compose %s %d" (symbol-name compose-type) docid)) (mu4e-proc-send-command "compose %s %d" (symbol-name compose-type) docid))
(defconst mu4e-update-buffer-name "*update*"
"*internal* Name of the buffer to download mail")
(defun mu4e-proc-retrieve-mail-update-db ()
"Try to retrieve mail (using the user-provided shell command),
and update the database afterwards."
(unless mu4e-get-mail-command
(error "`mu4e-get-mail-command' is not defined"))
(let ((buf (get-buffer-create mu4e-update-buffer-name)))
(split-window-vertically -8)
(switch-to-buffer-other-window buf)
(with-current-buffer buf
(erase-buffer))
(message "Retrieving mail...")
(call-process-shell-command mu4e-get-mail-command nil buf t)
(message "Updating the database...")
(mu4e-proc-index mu4e-maildir)
(with-current-buffer buf
(kill-buffer-and-window))))
(provide 'mu4e-proc) (provide 'mu4e-proc)

37
emacs/mu4e.el
View File

@ -228,7 +228,6 @@ recommended you use \"html2text -utf8 -width 72\"."
:type 'string :type 'string
:group 'mu4e-compose) :group 'mu4e-compose)
;; Faces ;; Faces
(defgroup mu4e-faces nil (defgroup mu4e-faces nil
@ -546,7 +545,6 @@ flagged, new, passed, replied, seen, trashed and the string is
the concatenation of the uppercased first letters of these flags, the concatenation of the uppercased first letters of these flags,
as per [1]. Other letters than the ones listed here are ignored. as per [1]. Other letters than the ones listed here are ignored.
Also see `mu/flags-to-string'. Also see `mu/flags-to-string'.
\[1\]: http://cr.yp.to/proto/maildir.html" \[1\]: http://cr.yp.to/proto/maildir.html"
(when (/= 0 (length str)) (when (/= 0 (length str))
(let ((flag (let ((flag
@ -606,6 +604,41 @@ function prefers the text part, but this can be changed by setting
;; and finally, remove some crap from the remaining string. ;; and finally, remove some crap from the remaining string.
(replace-regexp-in-string "[ (replace-regexp-in-string "[
 ]" " " body nil nil nil)))  ]" " " body nil nil nil)))
(defconst mu4e-get-mail-name "*mu4e-get-mail*"
"*internal* Name of the process to retrieve mail")
(defun mu4e-retrieve-mail-update-db-proc (buf)
"Try to retrieve mail (using `mu4e-get-mail-command'), with
output going to BUF if not nil, or discarded if nil. After
retrieving mail, update the database."
(unless mu4e-get-mail-command
(error "`mu4e-get-mail-command' is not defined"))
(message "Retrieving mail...")
(let* ((proc (start-process-shell-command
mu4e-get-mail-name buf mu4e-get-mail-command)))
(set-process-sentinel proc
(lambda (proc msg)
(let ((buf (process-buffer proc)))
(when (buffer-live-p buf)
(mu4e-proc-index mu4e-maildir)
(kill-buffer buf)))))))
(defun mu4e-retrieve-mail-update-db ()
"Try to retrieve mail (using the user-provided shell command),
and update the database afterwards"
(interactive)
(unless mu4e-get-mail-command
(error "`mu4e-get-mail-command' is not defined"))
(let ((buf (get-buffer-create mu4e-update-buffer-name))
(win
(split-window (selected-window)
(- (window-height (selected-window)) 8))))
(with-selected-window win
(switch-to-buffer buf)
(set-window-dedicated-p win t)
(erase-buffer)
(mu4e-retrieve-mail-update-db-proc buf))))
(defun mu4e-display-manual () (defun mu4e-display-manual ()