This commit is contained in:
djcb 2013-05-30 06:16:05 -07:00
parent e7c63cee47
commit 60f75eea42
3 changed files with 7 additions and 7 deletions

View File

@ -44,7 +44,7 @@ dist_lisp_LISP= \
org-mu4e.el
mu4e-about.el: mu4e-about.org
@echo ";; auto-generated" > mu4e-about.el
@echo ";; auto-generated" > qmu4e-about.el
@echo "(defconst mu4e-about \"" >> mu4e-about.el
@sed 's/"/\\"/g' < mu4e-about.org >> mu4e-about.el
@echo "\" \"About mu4e.\")" >> mu4e-about.el

View File

@ -934,8 +934,8 @@ header."
(save-excursion
(goto-char (point-min))
(while (search-forward mu4e~headers-docid-pre nil t)
;; not really sure why we need to jump to bol; we we need
;; to, otherwise we miss lines sometimes...
;; not really sure why we need to jump to bol; we do need to, otherwise we
;; miss lines sometimes...
(let ((msg (get-text-property (line-beginning-position) 'msg)))
(when msg
(funcall func msg))))))

View File

@ -174,10 +174,10 @@ an absolute path."
(defun mu4e-message (frm &rest args)
"Like `message', but prefixed with mu4e.
If we're waiting for user-input, don't show anything."
(unless (active-minibuffer-window)
(message "%s" (apply 'mu4e-format frm args))
nil))
If we're waiting for user-input or if there's some message in the
echo area, don't show anything."
(unless (or (active-minibuffer-window) (current-message))
(message "%s" (apply 'mu4e-format frm args))))
(defun mu4e-error (frm &rest args)
"Create [mu4e]-prefixed error based on format FRM and ARGS.