* gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Renamed.

[gnus] / lisp / gnus-cite.el

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index e8b6cc4..6a09a47 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -1,4 +1,4 @@
-;;; gnus-cite.el --- parse citations in articles for Gnus  -*- coding: iso-latin-1 -*-
+;;; gnus-cite.el --- parse citations in articles for Gnus
 
 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001
 ;;        Free Software Foundation, Inc.
@@ -510,8 +510,7 @@ always hide."
                      (setq beg nil)
                  (setq end (point-marker))))))
            (when (and beg end)
-             (or (memq 'cite gnus-article-wash-types)
-                 (push 'cite gnus-article-wash-types))
+             (gnus-add-wash-type 'cite)
              ;; We use markers for the end-points to facilitate later
              ;; wrapping and mangling of text.
              (setq beg (set-marker (make-marker) beg)
@@ -557,8 +556,7 @@ means show, nil means toggle."
             'article-type 'cite beg end
             (cons 'article-type (cons 'cite
                                       gnus-hidden-properties))))
-       (or (memq 'cite gnus-article-wash-types)
-           (push 'cite gnus-article-wash-types))
+       (gnus-add-wash-type 'cite)
        (gnus-add-text-properties-when
         'article-type nil beg end
         (cons 'article-type (cons 'cite
@@ -968,8 +966,7 @@ See also the documentation for `gnus-article-highlight-citation'."
                                       gnus-hidden-properties))
              ((assq number gnus-cite-attribution-alist))
              (t
-              (or (memq 'cite gnus-article-wash-types)
-                  (push 'cite gnus-article-wash-types))
+              (gnus-add-wash-type 'cite)
               (gnus-add-text-properties
                (point) (progn (forward-line 1) (point))
                (nconc (list 'article-type 'cite)