* gnus-art.el (article-display-x-face): Don't use `nreverse' when sorting gray

 X-Faces.

* nnheader.el (std11-field-value): Fix regexp.

diff --git a/ChangeLog b/ChangeLog
index b130ebf..11bfc51 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/nnheader.el (std11-field-value): Fix regexp.
+
 2002-02-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus-art.el (gnus-treat-display-grey-xface): Default to nil

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index fe540b5..b8401d4 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2061,13 +2061,12 @@ unfolded."
                      (if (match-beginning 2)
                          (progn
                            (setq grey t)
-                           (push (cons (string-to-number (match-string 2))
+                           (push (cons (- (string-to-number (match-string 2)))
                                        (mail-header-field-value))
                                  x-faces))
                        (push (cons 0 (mail-header-field-value)) x-faces)))
                    (dolist (x-face (prog1
-                                       (nreverse (sort x-faces
-                                                       'car-less-than-car))
+                                       (sort x-faces 'car-less-than-car)
                                      (setq x-faces nil)))
                      (push (cdr x-face) x-faces)))
                (while (gnus-article-goto-header "X-Face")

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 22c9cee..f759abe 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -384,7 +384,7 @@ If no name can be extracted, FULL-NAME will be nil."
            (std11-extract-addresses-components string)))
 
   ;; Should keep track of `rfc2047-field-value' in rfc2047.el.
-  (defun-maybe std11-field-value (&optional dont-include-last-newline)
+  (defun std11-field-value (&optional dont-include-last-newline)
     "Return the value of the field at point.  If the optional argument is
 given, the return value will not contain the last newline."
     (let ((begin (point))
@@ -394,7 +394,7 @@ given, the return value will not contain the last newline."
       (unless (eobp)
        (while (and (memq (char-after) '(?\t ?\ ))
                    (zerop (forward-line -1))))
-       (when (looking-at ".+:[\t\n ]+")
+       (when (looking-at "[^\t\n ]+:[\t\n ]+")
          (goto-char (setq start (match-end 0)))
          (forward-line 1)
          (while (and (memq (char-after) '(?\t ?\ ))