From: keiichi <keiichi>
Date: Wed, 3 Jul 2002 08:20:15 +0000 (+0000)
Subject: (message-subject-re-regexp): Modify matching pattern.
X-Git-Tag: nana-gnus-7_1_0_31~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=70e77059b89fe0b634f3b33dd5fe7b6d3b994e31;p=elisp%2Fgnus.git-

(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.
---

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