Show folded X-Face

diff --git a/ChangeLog b/ChangeLog
index 51c527b..69c9cf1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-02-08  Yoshiki Hayashi <yoshiki@xemacs.org>
+
+       * gnus-art.el (article-display-face): Show folded X-Face.
+
 2000-02-08  Keiichi Suzuki  <keiichi@nanap.org>
 
        * lisp/gnus.el (gnus-revision-number): Increment to 07.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0406f86..7b9d12d 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1526,7 +1526,7 @@ MAP is an alist where the elements are on the form (\"from\" \"to\")."
                             (not (string-match gnus-article-x-face-too-ugly
                                                from))))
                    ;; Has to be present.
-                   (re-search-forward "^X-Face: " nil t))
+                   (re-search-forward "^X-Face:[ \t]*" nil t))
          ;; This used to try to do multiple faces (`while' instead of
          ;; `when' above), but (a) sending multiple EOFs to xv doesn't
          ;; work (b) it can crash some versions of Emacs (c) are