(gnus-article-highlight-citation): Add KEEP-BUFFER arg.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d62ce6..c2be3b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2007-01-14  Reiner Steib  <Reiner.Steib@gmx.de>
 
+       * gnus-cite.el (gnus-article-highlight-citation): Add KEEP-BUFFER arg.
+
        * gnus-art.el (gnus-article-browse-html-article): Add warning about web
        bugs to doc string.
        (gnus-button-alist): Add mid\\|message-id.

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index d1f4b3c..00f815a 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -370,7 +370,7 @@ in a boring face, then the pages will be skipped."
 
 ;;; Commands:
 
-(defun gnus-article-highlight-citation (&optional force)
+(defun gnus-article-highlight-citation (&optional force keep-buffer)
   "Highlight cited text.
 Each citation in the article will be highlighted with a different face.
 The faces are taken from `gnus-cite-face-list'.
@@ -384,7 +384,8 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
 `gnus-cite-attribution-prefix' are considered attribution lines."
   (interactive (list 'force))
   (save-excursion
-    (set-buffer gnus-article-buffer)
+    (unless keep-buffer
+      (set-buffer gnus-article-buffer))
     (gnus-cite-parse-maybe force)
     (let ((buffer-read-only nil)
          (alist gnus-cite-prefix-alist)