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

* mu4e: don't show messages when we're waiting for user-input

This commit is contained in:
djcb 2012-06-24 11:53:43 +03:00
parent fe755579a7
commit 4164a9bf0a
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TODO
View File

@ -33,7 +33,6 @@
- handling of database upgrades - handling of database upgrades
- restore point after rerunning a search - restore point after rerunning a search
- fix emacs23 auto-completion - fix emacs23 auto-completion
- fix message interference
- opening urls is too eager - opening urls is too eager
** Done ** Done
@ -71,6 +70,7 @@
- make refresh after changing sort, threads the default - make refresh after changing sort, threads the default
- contact completion (see Jacek's 'mu4e: using' mail) - contact completion (see Jacek's 'mu4e: using' mail)
- *FIX* emacs23 mailto: handling - *FIX* emacs23 mailto: handling
- *FIX* message interference
# Local Variables: # Local Variables:
# mode: org; org-startup-folded: nil # mode: org; org-startup-folded: nil

9
emacs/mu4e-utils.el
View File

@ -66,9 +66,11 @@ dir already existed, or has been created, nil otherwise."
(concat "[" mu4e-logo "] " (apply 'format frm args))) (concat "[" mu4e-logo "] " (apply 'format frm args)))
(defun mu4e-message (frm &rest args) (defun mu4e-message (frm &rest args)
"Like `message', but prefixed with mu4e." "Like `message', but prefixed with mu4e. If we're waiting for
(message "%s" (apply 'mu4e-format frm args))) user-input, don't show anyhting."
(unless (waiting-for-user-input-p)
(message "%s" (apply 'mu4e-format frm args))))
(defun mu4e~read-char-choice (prompt choices) (defun mu4e~read-char-choice (prompt choices)
"Compatiblity wrapper for `read-char-choice', which is emacs-24 "Compatiblity wrapper for `read-char-choice', which is emacs-24
only." only."
@ -622,7 +624,6 @@ FUNC (if non-nil) afterwards."
doccount (if (= doccount 1) "" "s"))))) doccount (if (= doccount 1) "" "s")))))
;; send the ping ;; send the ping
(mu4e~proc-ping) (mu4e~proc-ping)
;; get the address list ;; get the address list
(when mu4e-compose-complete-addresses (when mu4e-compose-complete-addresses
(setq mu4e-contacts-func 'mu4e~fill-contacts) (setq mu4e-contacts-func 'mu4e~fill-contacts)