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 org-mu4e.el
mu4e-about.el: mu4e-about.org 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 @echo "(defconst mu4e-about \"" >> mu4e-about.el
@sed 's/"/\\"/g' < mu4e-about.org >> mu4e-about.el @sed 's/"/\\"/g' < mu4e-about.org >> mu4e-about.el
@echo "\" \"About mu4e.\")" >> mu4e-about.el @echo "\" \"About mu4e.\")" >> mu4e-about.el

View File

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

View File

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