From: yamaoka <yamaoka>
Date: Wed, 22 Nov 2000 01:40:48 +0000 (+0000)
Subject: * lisp/gnus-vers.el (gnus-revision-number): Increment to 07.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0200811a2342a38483193c24780018240dd9a8ec;p=elisp%2Fgnus.git-

* lisp/gnus-vers.el (gnus-revision-number): Increment to 07.
* lisp/gnus.el: Add autoloads for x-face-e21.
* lisp/gnus-sum.el (gnus-summary-search-article-position-point): Search for
 `x-face-image' as well as `x-face-mule-bitmap-image'.
* lisp/gnus-art.el (gnus-article-x-face-command): Default to
 `x-face-decode-message-header' when Emacs 21 is running and x-face-e21 is
 installed.
---

diff --git a/ChangeLog b/ChangeLog
index 4c1b39d..8603a15 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2000-11-22  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 07.
+
+	* lisp/gnus.el: Add autoloads for x-face-e21.
+
+	* lisp/gnus-sum.el (gnus-summary-search-article-position-point):
+	Search for `x-face-image' as well as `x-face-mule-bitmap-image'.
+
+	* lisp/gnus-art.el (gnus-article-x-face-command): Default to
+	`x-face-decode-message-header' when Emacs 21 is running and
+	x-face-e21 is installed.
+
 2000-11-21  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/message.el (message-send-mail-with-smtp): Use
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8981de6..e137be3 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -215,7 +215,9 @@ regexp.  If it matches, the text in question is not a signature."
    ;; gnus-xmas.el overrides this for XEmacs.
    ((and (fboundp 'image-type-available-p)
 	 (image-type-available-p 'xbm))
-    'gnus-article-display-xface)
+    (if (module-installed-p 'x-face-e21)
+	'x-face-decode-message-header
+      'gnus-article-display-xface))
    ((and (not (featurep 'xemacs))
 	 window-system
 	 (module-installed-p 'x-face-mule))
@@ -229,6 +231,9 @@ display -"))
 If it is a string, the command will be executed in a sub-shell
 asynchronously.	 The compressed face will be piped to this command."
   :type '(choice string
+		 (function-item
+		  :tag "x-face-decode-message-header (x-face-e21)"
+		  x-face-decode-message-header)
 		 (function-item gnus-article-display-xface)
 		 (function-item x-face-mule-gnus-article-display-x-face)
 		 function)
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7e36abb..0d885fb 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7172,11 +7172,11 @@ If BACKWARD, search backward instead."
 	       (goto-char (, opoint)))))
       (` (let ((end (if (search-forward "\n\n" nil t)
 			(goto-char (1- (point)))
-		      (point-min))))
+		      (point-min)))
+	       (start (or (search-backward "\n\n" nil t) (point-min))))
 	   (goto-char
-	    (or (text-property-any (or (search-backward "\n\n" nil t)
-				       (point-min))
-				   end 'x-face-mule-bitmap-image t)
+	    (or (text-property-any start end 'x-face-image t);; x-face-e21
+		(text-property-any start end 'x-face-mule-bitmap-image t)
 		(, opoint)))))))
 
   (defmacro gnus-summary-search-article-highlight-matched-text
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 8a1b2f7..e8bf15e 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -31,7 +31,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "06"
+(defconst gnus-revision-number "07"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 1184377..3b5cb14 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1921,7 +1921,9 @@ use the article treating faculties instead.  Is is described in Info node
   (unless (featurep 'xemacs)
     (autoload 'gnus-smiley-display "gnus-bitmap" nil t)
     (autoload 'smiley-toggle-buffer "gnus-bitmap")
-    (autoload 'x-face-mule-gnus-article-display-x-face "x-face-mule")))
+    (autoload 'x-face-mule-gnus-article-display-x-face "x-face-mule")
+    (when (>= emacs-major-version 21)
+      (autoload 'x-face-decode-message-header "x-face-e21"))))
 
 ;;; gnus-sum.el thingies