From 92ec6f75847202e3e21335af24bfe046c268c15f Mon Sep 17 00:00:00 2001 From: djcb Date: Mon, 27 May 2013 04:58:47 -0700 Subject: [PATCH] * mu4e-compose: unset the new flags when forwarding/replying to messages; fixes #214. --- mu4e/mu4e-compose.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el index 5e6380bb..547829db 100644 --- a/mu4e/mu4e-compose.el +++ b/mu4e/mu4e-compose.el @@ -413,7 +413,8 @@ corresponding with the /last/ message-id in the references header. Now, if the message has been determined to be either a forwarded message or a reply, we instruct the server to update that message with resp. the 'P' (passed) flag for a forwarded message, or the -'R' flag for a replied message. +'R' flag for a replied message. The original messages are also +marked as Seen. Function assumes that it's executed in the context of the message buffer." @@ -435,9 +436,9 @@ buffer." (setq forwarded-from (first refs)))))) ;; remove the <> (when (and in-reply-to (string-match "<\\(.*\\)>" in-reply-to)) - (mu4e~proc-move (match-string 1 in-reply-to) nil "+R")) + (mu4e~proc-move (match-string 1 in-reply-to) nil "+R-N")) (when (and forwarded-from (string-match "<\\(.*\\)>" forwarded-from)) - (mu4e~proc-move (match-string 1 forwarded-from) nil "+P"))))))) + (mu4e~proc-move (match-string 1 forwarded-from) nil "+P-N"))))))) (defun mu4e-compose (compose-type) "Start composing a message of COMPOSE-TYPE, where COMPOSE-TYPE is