From 8cacc26444c0f449ccf3d7e853a2309b2b3aed9d Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 15 Nov 2000 16:44:59 +0000 Subject: [PATCH] And fix the previous patch. 2000-11-12 David Edmondson * message.el (message-font-lock-keywords): use message-cite-prefix-regexp. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 10 +++------- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa92c0c4a..fa52dbdca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-11-12 David Edmondson + + * message.el (message-font-lock-keywords): use + message-cite-prefix-regexp. + 2000-11-15 Kai Gro,A_(Bjohann * gnus-group.el (gnus-group-jump-to-group-prompt): New variable by diff --git a/lisp/message.el b/lisp/message.el index 4cb92ed19..26728cd81 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -332,7 +332,7 @@ The provided functions are: :type 'regexp) (defcustom message-cite-prefix-regexp - "^[]>»|:}+ ]*[]>»|:}+]\\(\\w*>»\\)?\\|^\\w*>" + "[ \t]*\\(\\(\\w\\|[_-\\.]\\)+>+[ \t]*\\|[]>»|:}+ ]*[]>»|:}+][ \t]*\\)+" "*Regexp matching the longest possible citation prefix on a line." :group 'message-insertion :type 'regexp) @@ -826,9 +826,7 @@ Defaults to `text-mode-abbrev-table'.") :group 'message-faces) (defvar message-font-lock-keywords - (let* ((cite-prefix "A-Za-z") - (cite-suffix (concat cite-prefix "0-9_.@-")) - (content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)\n?")) + (let ((content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)\n?")) `((,(concat "^\\([Tt]o:\\)" content) (1 'message-header-name-face) (2 'message-header-to-face nil t)) @@ -852,9 +850,7 @@ Defaults to `text-mode-abbrev-table'.") `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$") 1 'message-separator-face)) nil) - (,(concat "^[ \t]*" - "\\([" cite-prefix "]+[" cite-suffix "]*\\)?" - "[:>|}].*") + (,(concat "^\\(" message-cite-prefix-regexp "\\).*") (0 'message-cited-text-face)) ("<#/?\\(multipart\\|part\\|external\\|mml\\).*>" (0 'message-mml-face)))) -- 2.25.1