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

* cosmetics

This commit is contained in:
djcb 2012-07-10 22:53:36 +03:00
parent daa4e01686
commit 6ad12aa3a2
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mu4e/mu4e-utils.el
View File

@ -634,8 +634,8 @@ FUNC (if non-nil) afterwards."
(mu4e-error "mu server has version %s, but we need %s" (mu4e-error "mu server has version %s, but we need %s"
version mu4e-mu-version)) version mu4e-mu-version))
(when func (funcall func)) (when func (funcall func))
(when (and mu4e-update-interval (null mu4e-update-timer)) (when (and mu4e-update-interval (null mu4e~update-timerr))
(setq mu4e-update-timer (setq mu4e~update-timerr
(run-at-time (run-at-time
0 mu4e-update-interval 'mu4e-update-mail))) 0 mu4e-update-interval 'mu4e-update-mail)))
(mu4e-message "Started mu4e with %d message%s in store" (mu4e-message "Started mu4e with %d message%s in store"
@ -655,10 +655,10 @@ FUNC (if non-nil) afterwards."
(defun mu4e~stop () (defun mu4e~stop ()
"Stop the mu4e session." "Stop the mu4e session."
(when mu4e-update-timer (when mu4e~update-timerr
(cancel-timer mu4e-update-timer) (cancel-timer mu4e~update-timerr)
(setq (setq
mu4e-update-timer nil mu4e~update-timerr nil
mu4e~maildir-list nil mu4e~maildir-list nil
mu4e~contacts-for-completion nil)) mu4e~contacts-for-completion nil))
(mu4e~proc-kill) (mu4e~proc-kill)
@ -670,11 +670,11 @@ FUNC (if non-nil) afterwards."
(kill-buffer)))) (kill-buffer))))
(buffer-list))) (buffer-list)))
(defvar mu4e-update-timer nil (defvar mu4e~update-timer nil
"*internal* The mu4e update timer.") "The mu4e update timer.")
(defconst mu4e-update-mail-name "*mu4e-update-mail*" (defconst mu4e~update-mail-name "*mu4e-update-mail*"
"*internal* Name of the process to update mail") "Name of the process to update mail.")
(defun mu4e-update-mail (&optional buf) (defun mu4e-update-mail (&optional buf)
"Update mail (retrieve using `mu4e-get-mail-command' and update "Update mail (retrieve using `mu4e-get-mail-command' and update
@ -686,7 +686,7 @@ processing takes part in the background, unless buf is non-nil."
(mu4e-error "`mu4e-get-mail-command' is not defined")) (mu4e-error "`mu4e-get-mail-command' is not defined"))
(let* ((process-connection-type t) (let* ((process-connection-type t)
(proc (start-process-shell-command (proc (start-process-shell-command
mu4e-update-mail-name buf mu4e-get-mail-command))) mu4e~update-mail-name buf mu4e-get-mail-command)))
(mu4e-message "Retrieving mail...") (mu4e-message "Retrieving mail...")
(set-process-sentinel proc (set-process-sentinel proc
(lambda (proc msg) (lambda (proc msg)

3
mu4e/mu4e-view.el
View File

@ -674,8 +674,7 @@ current message."
(with-current-buffer mu4e~view-headers-buffer (with-current-buffer mu4e~view-headers-buffer
(if (and docid (mu4e~headers-goto-docid docid)) (if (and docid (mu4e~headers-goto-docid docid))
,@body ,@body
(mu4e-error "cannot find corresponding message in headers (mu4e-error "cannot find message in headers buffer."))))))
buffer."))))))
(defun mu4e-view-headers-next(&optional n) (defun mu4e-view-headers-next(&optional n)
"Move point to the next message header in the headers buffer "Move point to the next message header in the headers buffer