From 70e77059b89fe0b634f3b33dd5fe7b6d3b994e31 Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 3 Jul 2002 08:20:15 +0000 Subject: [PATCH] (message-subject-re-regexp): Modify matching pattern. (message-yank-original): Don't add new Messagd-Id to In-Reply-To field when it was already exists. --- lisp/message.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 0f1eeaf..0ca1d75 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -255,7 +255,8 @@ any confusion." :group 'message-sending :type 'function) -(defcustom message-subject-re-regexp "^[ \t]*\\([Rr][Ee]:[ \t]*\\)*[ \t]*" +(defcustom message-subject-re-regexp + "^[ \t]*\\([Rr][Ee]\\(\\[[0-9]*\\]\\)*:[ \t]*\\)*[ \t]*" "*Regexp matching \"Re: \" in the subject line." :group 'message-various :type 'regexp) @@ -1961,15 +1962,15 @@ be added to \"References\" field. nil (message-fetch-field "References"))) (setq in-reply-to (message-list-references nil (message-fetch-field "In-Reply-To"))) - (when in-reply-to - (setq add-in-reply-to t)) (widen) (narrow-to-region start end) (std11-narrow-to-header) (setq msg-id (message-fetch-field "Message-ID")) (setq orig-refs (or (message-fetch-field "References") (message-fetch-field "In-Reply-To"))) - (setq in-reply-to (message-list-references in-reply-to msg-id)) + (unless in-reply-to + (setq add-in-reply-to t) + (setq in-reply-to (message-list-references in-reply-to msg-id))) (if (null refs) (setq refs (message-list-references nil orig-refs msg-id)) (when message-yank-add-new-references -- 1.7.10.4