From a02464d307a46275fba24df23cf2edee16a80a88 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Mon, 3 Oct 2011 09:13:58 +0300 Subject: [PATCH] * mm-send.el: remove <> from message ids when flagging them --- toys/mm/mm-send.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/toys/mm/mm-send.el b/toys/mm/mm-send.el index f831116c..6ebe5e14 100644 --- a/toys/mm/mm-send.el +++ b/toys/mm/mm-send.el @@ -378,6 +378,7 @@ using Gnus' `message-mode'." (setq buffer-read-only t))) + (defun mm/send-set-parent-flag () "Set the 'replied' flag on messages we replied to, and the 'passed' flag on message we have forwarded. @@ -406,13 +407,15 @@ This is meant to be called from message mode's (let ((refs)) (while (re-search-forward "<[^ <]+@[^ <]+>" nil t) (push (match-string 0) refs)) - (setq forwarded-from (last refs)) - (message "refs: %S, forwarded-from %S" refs forwarded-from))))) + (setq forwarded-from (last refs)))))) + + ;; remove the <> + (when (and in-reply-to (string-match "<\\(.*\\)>" in-reply-to)) + (mm/proc-flag (match-string 1 in-reply-to) "+R")) + (when (and forwarded-from (string-match "<\\(.*\\)>" forwarded-from)) + (mm/proc-flag (match-string 1 forwarded-from) "+P")))) + - (when in-reply-to - (mm/proc-flag in-reply-to "+R")) - (when forwarded-from - (mm/proc-flag forwarded-from "+P")))) (provide 'mm-send)