mirror of https://github.com/djcb/mu.git
* minor
This commit is contained in:
parent
e7c63cee47
commit
60f75eea42
|
@ -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
|
||||
|
|
|
@ -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))))))
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue