--- gnus-art.el.orig	2003-01-15 10:48:03.000000000 -0800
+++ gnus-art.el	2003-01-24 13:48:38.000000000 -0800
@@ -250,6 +250,11 @@
   :group 'gnus-article-washing)
 
 (defcustom gnus-article-x-face-too-ugly nil
+  "Regexp matching posters whose x-face shouldn't be shown automatically."
+  :type '(choice regexp (const nil))
+  :group 'gnus-article-washing)
+
+(defcustom gnus-article-face-too-ugly nil
   "Regexp matching posters whose face shouldn't be shown automatically."
   :type '(choice regexp (const nil))
   :group 'gnus-article-washing)
@@ -1935,12 +1940,19 @@
   "Display any Face headers in the header."
   (interactive)
   (gnus-with-article-headers
-    (let ((face nil))
+    (let ((face nil)
+          (from nil))
       (save-excursion
 	(when (gnus-buffer-live-p gnus-original-article-buffer)
 	  (set-buffer gnus-original-article-buffer)
+	  (setq from (message-fetch-field "from"))
 	  (setq face (message-fetch-field "face"))))
-      (when face
+      (when (and face
+                 (or
+                  (not gnus-article-face-too-ugly)
+                  (and gnus-article-face-too-ugly from
+                       (not (string-match gnus-article-face-too-ugly
+                                          from)))))
 	(let ((png (gnus-convert-face-to-png face))
 	      image)
 	  (when png