(gnus-cite-face-list): Set the value of gnus-message-citation-keywords.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0ac41ad..39c21d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2007-02-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-       * gnus-cite.el (gnus-cite-face-list): Set the value of
-       gnus-message-max-citation-depth.
+       * gnus-cite.el (gnus-cite-face-list): Set the values of
+       gnus-message-max-citation-depth and gnus-message-citation-keywords.
        (gnus-message-max-citation-depth): Use defvar rather than defconst.
        (gnus-message-cite-prefix-regexp): New variable.
        (gnus-message-search-citation-line): Use it; protect against long

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index d186986..832e251 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -309,7 +309,16 @@ This should make it easier to see who wrote what."
         (prog1
             (custom-set-default symbol value)
           (if (boundp 'gnus-message-max-citation-depth)
-              (setq gnus-message-max-citation-depth (length value))))))
+              (setq gnus-message-max-citation-depth (length value)))
+          (if (boundp 'gnus-message-citation-keywords)
+              (setq gnus-message-citation-keywords
+                    `((gnus-message-search-citation-line
+                       ,@(let ((list nil)
+                               (count 1))
+                           (dolist (face gnus-cite-face-list (nreverse list))
+                             (push (list count (list 'quote face) 'prepend t)
+                                   list)
+                             (setq count (1+ count)))))))))))
 
 (defcustom gnus-cite-hide-percentage 50
   "Only hide excess citation if above this percentage of the body."