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

* cosmetics

Browse Source
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
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."
(unless (string= version mu4e-mu-version) (unless (string= version mu4e-mu-version)
(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-timerr (setq mu4e~update-timerr
(run-at-time (run-at-time
0 mu4e-update-interval 'mu4e-update-mail))) 0 mu4e-update-interval 'mu4e-update-mail)))
@ -655,10 +655,10 @@ FUNC (if non-nil) afterwards."
(org-parse-time-string mu4e-compose-complete-only-after)))))))) (org-parse-time-string mu4e-compose-complete-only-after))))))))
(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-timerr) (cancel-timer mu4e~update-timerr)
(setq (setq
mu4e~update-timerr nil mu4e~update-timerr nil
mu4e~maildir-list nil mu4e~maildir-list nil
mu4e~contacts-for-completion nil)) mu4e~contacts-for-completion nil))
@ -670,11 +670,11 @@ FUNC (if non-nil) afterwards."
(when (member major-mode '(mu4e-headers-mode mu4e-view-mode mu4e-main-mode)) (when (member major-mode '(mu4e-headers-mode mu4e-view-mode mu4e-main-mode))
(kill-buffer)))) (kill-buffer))))
(buffer-list))) (buffer-list)))
(defvar mu4e-update-timer nil (defvar mu4e~update-timer nil
"The mu4e update timer.") "The mu4e update timer.")
(defconst mu4e-update-mail-name "*mu4e-update-mail*" (defconst mu4e~update-mail-name "*mu4e-update-mail*"
"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)
@ -686,7 +686,7 @@ processing takes part in the background, unless buf is non-nil."
(unless mu4e-get-mail-command (unless mu4e-get-mail-command
(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

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