mirror of https://github.com/djcb/mu.git
mu4e: set better default for mu4e-compose-reply-ignore-address
... and some small cleanup
This commit is contained in:
parent
62cc675a51
commit
0dced59cb9
|
@ -182,7 +182,6 @@ of the original, we simple copy the list form the original."
|
||||||
(let ((reply-to
|
(let ((reply-to
|
||||||
(or (plist-get origmsg :reply-to) (plist-get origmsg :from))))
|
(or (plist-get origmsg :reply-to) (plist-get origmsg :from))))
|
||||||
(cl-delete-duplicates reply-to :test #'mu4e~draft-address-cell-equal)
|
(cl-delete-duplicates reply-to :test #'mu4e~draft-address-cell-equal)
|
||||||
(message "%S %S %S" reply-to (plist-get origmsg :reply-to) (plist-get origmsg :from))
|
|
||||||
(if mu4e-compose-dont-reply-to-self
|
(if mu4e-compose-dont-reply-to-self
|
||||||
(cl-delete-if
|
(cl-delete-if
|
||||||
(lambda (to-cell)
|
(lambda (to-cell)
|
||||||
|
|
|
@ -400,16 +400,16 @@ an RFC-2822-compatible e-mail address."
|
||||||
:group 'mu4e-compose)
|
:group 'mu4e-compose)
|
||||||
|
|
||||||
(defcustom mu4e-compose-reply-ignore-address
|
(defcustom mu4e-compose-reply-ignore-address
|
||||||
message-dont-reply-to-names
|
'("no-?reply")
|
||||||
"Addresses to prune when doing wide replies.
|
"Addresses to prune when doing wide replies.
|
||||||
|
|
||||||
This can be a regexp matching the address, a list of regexps or a
|
This can be a regexp matching the address, a list of regexps or a
|
||||||
predicate function. A value of nil keeps all the addresses."
|
predicate function. A value of nil keeps all the addresses."
|
||||||
:type '(choice
|
:type '(choice
|
||||||
(const nil)
|
(const nil)
|
||||||
function
|
function
|
||||||
string
|
string
|
||||||
(repeat string))
|
(repeat string))
|
||||||
:group 'mu4e-compose)
|
:group 'mu4e-compose)
|
||||||
|
|
||||||
(defcustom mu4e-compose-reply-recipients 'ask
|
(defcustom mu4e-compose-reply-recipients 'ask
|
||||||
|
|
Loading…
Reference in New Issue