From edf25cbeb05c53e5ee7e8b6cf4bf48276da57e74 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 26 Sep 2010 15:51:22 +0200 Subject: [PATCH] Remove } from the cite prefix. --- lisp/ChangeLog | 3 +++ lisp/message.el | 8 ++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 06fbd41c0..4666f1d35 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-09-26 Lars Magne Ingebrigtsen + * message.el (message-cite-prefix-regexp): Remove } from the cite + prefix. + * gnus-art.el (gnus-treatment-function-alist): Do picons before highlight again, so that the highlight is correct. diff --git a/lisp/message.el b/lisp/message.el index 9f523a730..9e79e3ea9 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -624,7 +624,7 @@ Done before generating the new subject of a forward." (defcustom message-cite-prefix-regexp (if (string-match "[[:digit:]]" "1") ;; Support POSIX? XEmacs 21.5.27 doesn't. - "\\([ \t]*[_.[:word:]]+>+\\|[ \t]*[]>|}]\\)+" + "\\([ \t]*[_.[:word:]]+>+\\|[ \t]*[]>|]\\)+" ;; ?-, ?_ or ?. MUST NOT be in syntax entry w. (let (non-word-constituents) (with-syntax-table text-mode-syntax-table @@ -633,12 +633,12 @@ 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 "23.2" + :version "24.1" :group 'message-insertion :link '(custom-manual "(message)Insertion Variables") :type 'regexp -- 2.25.1