From: yamaoka <yamaoka>
Date: Tue, 30 Nov 1999 10:09:13 +0000 (+0000)
Subject: (gnus-article-wash-status): Sync up with Pterodactyl Gnus v0.98.
X-Git-Tag: t-gnus-6_13_3-07~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3ada726b770a7ba869094a69c9eeef1ae1ec388e;p=elisp%2Fgnus.git-

(gnus-article-wash-status): Sync up with Pterodactyl Gnus v0.98.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 20a2ea8..1ee61f9 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3711,22 +3711,21 @@ value of the variable `gnus-show-mime' is non-nil."
   "Return a string which display status of article washing."
   (save-excursion
     (set-buffer gnus-article-buffer)
-    (let ((cite (gnus-article-hidden-text-p 'cite))
- 	  (headers (gnus-article-hidden-text-p 'headers))
- 	  (boring (gnus-article-hidden-text-p 'boring-headers))
- 	  (pgp (gnus-article-hidden-text-p 'pgp))
- 	  (pem (gnus-article-hidden-text-p 'pem))
- 	  (signature (gnus-article-hidden-text-p 'signature))
- 	  (overstrike (gnus-article-hidden-text-p 'overstrike))
- 	  (emphasis (gnus-article-hidden-text-p 'emphasis))
-	  (mime gnus-show-mime))
+    (let ((cite (memq 'cite gnus-article-wash-types))
+	  (headers (memq 'headers gnus-article-wash-types))
+	  (boring (memq 'boring-headers gnus-article-wash-types))
+	  (pgp (memq 'pgp gnus-article-wash-types))
+	  (pem (memq 'pem gnus-article-wash-types))
+	  (signature (memq 'signature gnus-article-wash-types))
+	  (overstrike (memq 'overstrike gnus-article-wash-types))
+	  (emphasis (memq 'emphasis gnus-article-wash-types)))
       (format "%c%c%c%c%c%c%c"
 	      (if cite ?c ? )
 	      (if (or headers boring) ?h ? )
 	      (if (or pgp pem) ?p ? )
 	      (if signature ?s ? )
 	      (if overstrike ?o ? )
-	      (if mime ?m ? )
+	      (if gnus-show-mime ?m ? )
 	      (if emphasis ?e ? )))))
 
 (fset 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers)