From 1ca0c36f2fe1d0405957170846cff6b17664879f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 16 Nov 2000 01:36:11 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 1 + lisp/gnus-cite.el | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ce1d65e..4540c82 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,7 @@ constituent as in articles. (message-setup-fill-variables): Add -_. as supercite-style prefix. * gnus-art.el (gnus-article-mode-syntax-table): Remove ?-. + * gnus-cite.el (gnus-cite-parse): Match from the beginning of line. 2000-11-15 13:21 ShengHuo ZHU diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 925acb3..3cc0a47 100644 --- a/lisp/gnus-cite.el +++ b/lisp/gnus-cite.el @@ -660,6 +660,7 @@ See also the documentation for `gnus-article-highlight-citation'." (goto-char (point-max)) (gnus-article-search-signature) (point))) + (prefix-regexp (concat "^\\(" message-cite-prefix-regexp "\\)")) alist entry start begin end numbers prefix mc-flag) ;; Get all potential prefixes in `alist'. (while (< (point) max) @@ -676,7 +677,7 @@ See also the documentation for `gnus-article-highlight-citation'." ;; Ignore very long prefixes. (when (> end (+ (point) gnus-cite-max-prefix)) (setq end (+ (point) gnus-cite-max-prefix))) - (while (re-search-forward message-cite-prefix-regexp (1- end) t) + (while (re-search-forward prefix-regexp (1- end) t) ;; Each prefix. (setq end (match-end 0) prefix (buffer-substring begin end)) -- 1.7.10.4