Merge pull request #2536 from Chris00/master

Don't use the original message `To` for a reply `To` field
This commit is contained in:
Dirk-Jan C. Binnema 2023-08-17 22:27:34 +03:00 committed by GitHub
commit e64b343c9d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 4 deletions

View File

@ -350,10 +350,8 @@ address is set, use that, otherwise use the From address. Note,
whatever was in the To: field before, goes to the Cc:-list (if
we're doing a reply-to-all). Special case: if we were the sender
of the original, we simple copy the list form the original."
(let* ((reply-to
(append
(plist-get origmsg :to)
(or (plist-get origmsg :reply-to) (plist-get origmsg :from))))
(let* ((reply-to (or (plist-get origmsg :reply-to)
(plist-get origmsg :from)))
(reply-to (cl-delete-duplicates reply-to
:test #'mu4e~draft-address-cell-equal)))
(if mu4e-compose-dont-reply-to-self