alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-compose: unset the new flags when forwarding/replying to messages; fixes #214.

Browse Source
This commit is contained in:
djcb
2013-05-27 04:58:47 -07:00
parent c50c0695e4
commit 92ec6f7584
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
mu4e/mu4e-compose.el
View File

@ -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 Now, if the message has been determined to be either a forwarded
message or a reply, we instruct the server to update that message message or a reply, we instruct the server to update that message
with resp. the 'P' (passed) flag for a forwarded message, or the 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 Function assumes that it's executed in the context of the message
buffer." buffer."
@ -435,9 +436,9 @@ buffer."
(setq forwarded-from (first refs)))))) (setq forwarded-from (first refs))))))
;; remove the <> ;; remove the <>
(when (and in-reply-to (string-match "<\\(.*\\)>" in-reply-to)) (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)) (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) (defun mu4e-compose (compose-type)
"Start composing a message of COMPOSE-TYPE, where COMPOSE-TYPE is "Start composing a message of COMPOSE-TYPE, where COMPOSE-TYPE is