From: yamaoka <yamaoka>
Date: Tue, 29 Jan 2002 23:15:47 +0000 (+0000)
Subject: * message.el (message-cite-prefix-regexp): Fix the regexp.
X-Git-Tag: t-gnus-6_15_6-00~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=42852bfc78dff329f9aa248a2fdf6b7ecaf4655d;p=elisp%2Fgnus.git-

* message.el (message-cite-prefix-regexp): Fix the regexp.
---

diff --git a/ChangeLog b/ChangeLog
index 073ea05..7dc0759 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2002-01-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* lisp/message.el (message-cite-prefix-regexp): Fix the regexp.
+
 	* lisp/gnus-sum.el (gnus-mime-extract-message/rfc822): New
 	implementation.
 
diff --git a/lisp/message.el b/lisp/message.el
index 1bd98b8..1544879 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -474,9 +474,9 @@ The provided functions are:
 
 (defcustom message-cite-prefix-regexp
   (if (string-match "[[:digit:]]" "1") ;; support POSIX?
-      "\\([ \t]*[-_.[:word:]]+>+\\|[ \t]*[]>~|:}+]\\)+"
+      "\\([ \t]*[-_.[:word:]]+>+\\|[ \t]*[]>»|:}+]\\)+"
     ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
-    "\\([ \t]*\\(\\w\\|[-_.]\\)+>+\\|[ \t]*[]>~|:}+]\\)+")
+    "\\([ \t]*\\(\\w\\|[-_.]\\)+>+\\|[ \t]*[]>»|:}+]\\)+")
   "*Regexp matching the longest possible citation prefix on a line."
   :group 'message-insertion
   :type 'regexp)