From: yamaoka <yamaoka>
Date: Mon, 18 Feb 2002 06:01:45 +0000 (+0000)
Subject: * gnus-art.el (article-display-x-face): Don't use `nreverse' when sorting gray
X-Git-Tag: t-gnus-6_15_6-01-quimby~51
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6679daee069bfbc9bb6c5f92fd061000d4b66f30;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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
--- 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 ?\ ))