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