From e3a011896bf79c42bdeee73d88f2faa437d26840 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 27 Sep 2010 20:47:15 +0200 Subject: [PATCH] (message-cite-prefix-regexp): Revert my last edit. --- lisp/ChangeLog | 2 ++ lisp/message.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 69f68fcc6..aa3faf150 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2010-09-27 Lars Magne Ingebrigtsen + * message.el (message-cite-prefix-regexp): Revert my last edit. + * gnus-sum.el (gnus-summary-show-complete-article): Bind the server variable instead of the Gnus variable. diff --git a/lisp/message.el b/lisp/message.el index d5702b5fd..40c457764 100644 --- 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 -- 2.25.1