(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 (file)
--- 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)