(message-cite-prefix-regexp): Remove "}" from citation prefix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24ace17..96fd117 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-cite-prefix-regexp): Remove "}" from citation
+       prefix.
+
 2010-09-27  Juanma Barranquero  <lekktu@gmail.com>
 
        * nnmail.el (nnmail-fancy-expiry-targets): Fix typo in docstring.

diff --git a/lisp/message.el b/lisp/message.el
index 40c4577..d5702b5 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -629,7 +629,7 @@ Done before generating the new subject of a forward."
         mail-citation-prefix-regexp)
        ((string-match "[[:digit:]]" "1")
         ;; Support POSIX?  XEmacs 21.5.27 doesn't.
-        "\\([ \t]*[_.[:word:]]+>+\\|[ \t]*[]>|}]\\)+")
+        "\\([ \t]*[_.[:word:]]+>+\\|[ \t]*[]>|]\\)+")
        (t
         ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
         (let (non-word-constituents)
@@ -639,10 +639,10 @@ Done before generating the new subject of a forward."
                    (if (string-match "\\w" "_")  "" "_")
                    (if (string-match "\\w" ".")  "" "."))))
           (if (equal non-word-constituents "")
-              "\\([ \t]*\\(\\w\\)+>+\\|[ \t]*[]>|}]\\)+"
+              "\\([ \t]*\\(\\w\\)+>+\\|[ \t]*[]>|]\\)+"
             (concat "\\([ \t]*\\(\\w\\|["
                     non-word-constituents
-                    "]\\)+>+\\|[ \t]*[]>|}]\\)+")))))
+                    "]\\)+>+\\|[ \t]*[]>|]\\)+")))))
   "*Regexp matching the longest possible citation prefix on a line."
   :version "24.1"
   :group 'message-insertion