* minor
This commit is contained in:
@ -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
|
||||||
|
|||||||
@ -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))))))
|
||||||
|
|||||||
@ -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.
|
||||||
|
|||||||
Reference in New Issue
Block a user