mirror of https://github.com/djcb/mu.git
mu4e: cosmetics
This commit is contained in:
parent
855a8a5c5e
commit
abe732111a
|
@ -731,9 +731,10 @@ is a symbol, one of `reply', `forward', `edit', `resend'
|
||||||
(if (eq mu4e-decryption-policy 'ask)
|
(if (eq mu4e-decryption-policy 'ask)
|
||||||
(yes-or-no-p (mu4e-format "Decrypt message?"))
|
(yes-or-no-p (mu4e-format "Decrypt message?"))
|
||||||
mu4e-decryption-policy))))
|
mu4e-decryption-policy))))
|
||||||
;; if there's a visible view window, select that before starting composing
|
;; if there's a visible view window, select that before starting
|
||||||
;; a new message, so that one will be replaced by the compose window. The
|
;; composing a new message, so that one will be replaced by the compose
|
||||||
;; 10-or-so line headers buffer is not a good place to write it...
|
;; window. The 10-or-so line headers buffer is not a good place to write
|
||||||
|
;; it...
|
||||||
(let ((viewwin (get-buffer-window mu4e~view-buffer)))
|
(let ((viewwin (get-buffer-window mu4e~view-buffer)))
|
||||||
(when (window-live-p viewwin)
|
(when (window-live-p viewwin)
|
||||||
(select-window viewwin)))
|
(select-window viewwin)))
|
||||||
|
|
|
@ -319,7 +319,6 @@ never hits the disk. Also see `mu4e~draft-insert-mail-header-separator."
|
||||||
(let ((inhibit-read-only t))
|
(let ((inhibit-read-only t))
|
||||||
(replace-match "")))))
|
(replace-match "")))))
|
||||||
|
|
||||||
|
|
||||||
(defun mu4e~draft-reply-all-p (origmsg)
|
(defun mu4e~draft-reply-all-p (origmsg)
|
||||||
"Ask user whether she wants to reply to *all* recipients.
|
"Ask user whether she wants to reply to *all* recipients.
|
||||||
If there is just one recipient of ORIGMSG do nothing."
|
If there is just one recipient of ORIGMSG do nothing."
|
||||||
|
@ -327,8 +326,8 @@ If there is just one recipient of ORIGMSG do nothing."
|
||||||
(+ (length (mu4e~draft-create-to-lst origmsg))
|
(+ (length (mu4e~draft-create-to-lst origmsg))
|
||||||
(length (mu4e~draft-create-cc-lst origmsg t))))
|
(length (mu4e~draft-create-cc-lst origmsg t))))
|
||||||
(response
|
(response
|
||||||
(if (= recipnum 1)
|
(if (< recipnum 2)
|
||||||
'all ;; with one recipient, we can reply to 'all'....
|
'all ;; with less than 2 recipients, we can reply to 'all'
|
||||||
(mu4e-read-option
|
(mu4e-read-option
|
||||||
"Reply to "
|
"Reply to "
|
||||||
`( (,(format "all %d recipients" recipnum) . all)
|
`( (,(format "all %d recipients" recipnum) . all)
|
||||||
|
|
Loading…
Reference in New Issue