From: hayashi <hayashi>
Date: Tue, 8 Feb 2000 07:12:48 +0000 (+0000)
Subject: Show folded X-Face
X-Git-Tag: t-gnus-6_14_1-08~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e33f14bbb97cab2aa7c39d726aacb0b95affa2c0;p=elisp%2Fgnus.git-

Show folded X-Face
---

diff --git a/ChangeLog b/ChangeLog
index 51c527b..69c9cf1 100644
--- 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
--- 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