From 569838268173969997e8071f041db8d86868f90d Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Sun, 14 Jan 2007 21:32:50 +0000 Subject: [PATCH] (gnus-article-highlight-citation): Rename KEEP-BUFFER to SAME-BUFFER. --- lisp/ChangeLog | 2 +- lisp/gnus-cite.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c2be3b3c2..7cb6fdcdd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,6 @@ 2007-01-14 Reiner Steib - * gnus-cite.el (gnus-article-highlight-citation): Add KEEP-BUFFER arg. + * gnus-cite.el (gnus-article-highlight-citation): Add SAME-BUFFER arg. * gnus-art.el (gnus-article-browse-html-article): Add warning about web bugs to doc string. diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el index 00f815a9d..1d909d8dc 100644 --- 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 keep-buffer) +(defun gnus-article-highlight-citation (&optional force same-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,7 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps `gnus-cite-attribution-prefix' are considered attribution lines." (interactive (list 'force)) (save-excursion - (unless keep-buffer + (unless same-buffer (set-buffer gnus-article-buffer)) (gnus-cite-parse-maybe force) (let ((buffer-read-only nil) -- 2.34.1