* gnus-cite.el (gnus-cite-parse): Match from the beginning of line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce560b7..ba45b06 100644 (file)
--- 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  <zsh@cs.rochester.edu>
 

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 0a59f65..734d21c 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -658,6 +658,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)
     ;; Get all potential prefixes in `alist'.
     (while (< (point) max)
@@ -674,7 +675,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))