From: yamaoka <yamaoka>
Date: Thu, 26 Sep 2002 03:55:40 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-04-quimby~25
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3875698cf29f787cd8dd54d92878b3d7a0bdb277;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 642ac4d..a704ef7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-09-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-group.el (gnus-group-sort-by-method): Remove `symbol-name'
+	because the function `string<' allows symbols.
+
+	* gnus-sum.el (gnus-summary-make-menu-bar): Ditto.
+
 2002-09-25  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* message.el (message-forward-make-body): Revert an early change
@@ -7,7 +14,7 @@
 
 	* gnus-agent.el (gnus-category-line-format): Doc fixes (mostly added
 	links to Info)
-	* gnus-art.el (gnus-treat-highlight-signature): 
+	* gnus-art.el (gnus-treat-highlight-signature):
 	* gnus-art.el (gnus-treat-buttonize):
 	* gnus-art.el (gnus-treat-buttonize-head):
 	* gnus-art.el (gnus-treat-emphasize):
@@ -88,12 +95,12 @@
 
 	* gnus-art.el (gnus-button-handle-apropos-variable): Fall back to
 	apropos if apropos-variable does not exist.
-	(gnus-button-guessed-mid-regexp) 
+	(gnus-button-guessed-mid-regexp)
 	(gnus-button-handle-describe-prefix, gnus-button-alist): Better
 	regexes.  From Reiner Steib.
-	(gnus-button-handle-describe-function) 
+	(gnus-button-handle-describe-function)
 	(gnus-button-handle-describe-variable): Doc fix.  From Reiner Steib.
-	(gnus-button-handle-describe-key, gnus-button-handle-apropos) 
+	(gnus-button-handle-describe-key, gnus-button-handle-apropos)
 	(gnus-button-handle-apropos-command): Doc fix.  From Reiner Steib.
 
 2002-09-25  Mark A. Hershberger  <mah@everybody.org>
@@ -113,8 +120,8 @@
 	(mml2015-gpg-extract-signature-details): Check mml2015-use too.
 	(mml2015-gpg-extract-signature-details): PGG strips "gpg: "
 	prefix, make regexp optionally skip it.
-	(mml2015-pgg-decrypt, mml2015-pgg-clear-decrypt) 
-	(mml2015-pgg-verify, mml2015-pgg-clear-verify, mml2015-pgg-sign) 
+	(mml2015-pgg-decrypt, mml2015-pgg-clear-decrypt)
+	(mml2015-pgg-verify, mml2015-pgg-clear-verify, mml2015-pgg-sign)
 	(mml2015-pgg-encrypt): New functions.
 	(defvar, autoload): Prevent byte-compile warnings.
 
@@ -150,7 +157,7 @@
 	Trivial fix from beaker@iavmb.pl (Krzysztof J,Bj(Bdruczyk).
 
 	* smime.el (smime-sign-buffer): Get key and extra certs.
-	(smime-get-key-with-certs-by-email): Utility function.  
+	(smime-get-key-with-certs-by-email): Utility function.
 
 2002-09-21  ShengHuo ZHU  <zsh@cs.rochester.edu>
 	Trivial patch from Micha Wiedenmann <mw-u1@gmx.de>
@@ -177,7 +184,7 @@
 2002-09-18  Juanma Barranquero  <lektu@terra.es>
 
 	* gnus-int.el (gnus-status-message): Fix spacing.
-	
+
 	* imap.el (imap-continuation): Fix typos.
 
 2002-09-18  ShengHuo ZHU  <zsh@cs.rochester.edu>
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 831e52b..ec43c22 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2899,10 +2899,10 @@ sort in reverse order."
 
 (defun gnus-group-sort-by-method (info1 info2)
   "Sort alphabetically by backend name."
-  (string< (symbol-name (car (gnus-find-method-for-group
-			      (gnus-info-group info1) info1)))
-	   (symbol-name (car (gnus-find-method-for-group
-			      (gnus-info-group info2) info2)))))
+  (string< (car (gnus-find-method-for-group
+		 (gnus-info-group info1) info1))
+	   (car (gnus-find-method-for-group
+		 (gnus-info-group info2) info2))))
 
 (defun gnus-group-sort-by-server (info1 info2)
   "Sort alphabetically by server name."
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 648766f..3a8e390 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2045,9 +2045,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
 			     (coding-system-list)
 			   ;;(mapcar 'car mm-mime-mule-charset-alist)
 			   )
-			 (lambda (a b)
-			   (string< (symbol-name a)
-				    (symbol-name b))))))))
+			 'string<)))))
 	     ("Washing"
 	      ("Remove Blanks"
 	       ["Leading" gnus-article-strip-leading-blank-lines t]