emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: cosmetics

This commit is contained in:
djcb 2017-04-09 11:33:21 +03:00
parent 855a8a5c5e
commit abe732111a
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-compose.el
View File

@ -731,9 +731,10 @@ is a symbol, one of `reply', `forward', `edit', `resend'
(if (eq mu4e-decryption-policy 'ask)
(yes-or-no-p (mu4e-format "Decrypt message?"))
mu4e-decryption-policy))))
;; if there's a visible view window, select that before starting composing
;; a new message, so that one will be replaced by the compose window. The
;; 10-or-so line headers buffer is not a good place to write it...
;; if there's a visible view window, select that before starting
;; composing a new message, so that one will be replaced by the compose
;; window. The 10-or-so line headers buffer is not a good place to write
;; it...
(let ((viewwin (get-buffer-window mu4e~view-buffer)))
(when (window-live-p viewwin)
(select-window viewwin)))

5
mu4e/mu4e-draft.el
View File

@ -319,7 +319,6 @@ never hits the disk. Also see `mu4e~draft-insert-mail-header-separator."
(let ((inhibit-read-only t))
(replace-match "")))))
(defun mu4e~draft-reply-all-p (origmsg)
"Ask user whether she wants to reply to *all* recipients.
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-cc-lst origmsg t))))
(response
(if (= recipnum 1)
'all ;; with one recipient, we can reply to 'all'....
(if (< recipnum 2)
'all ;; with less than 2 recipients, we can reply to 'all'
(mu4e-read-option
"Reply to "
`( (,(format "all %d recipients" recipnum) . all)