From: yamaoka <yamaoka>
Date: Mon, 18 Feb 2002 12:58:00 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_6-01-quimby~48
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=11724fc556055be5713e6abda9cd1bec54652fe5;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aade0cf..6058f4e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-02-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Remove unused
+	local varriable.
+
 	* gnus-art.el (article-display-x-face): Don't sort multiple
 	X-Faces.
 
diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index 033e2e0..4105a81 100644
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -43,14 +43,14 @@
 (defun gnus-shell-command-to-string (command)
   "Like `shell-command-to-string' except not mingling ERROR."
   (with-output-to-string
-    (call-process shell-file-name nil (list standard-output nil) 
+    (call-process shell-file-name nil (list standard-output nil)
 		  nil shell-command-switch command)))
 
 (defun gnus-shell-command-on-region (start end command)
   "A simplified `shell-command-on-region'.
 Output to the current buffer, replace text, and don't mingle error."
-  (call-process-region start end shell-file-name t 
-		       (list (current-buffer) nil) 
+  (call-process-region start end shell-file-name t
+		       (list (current-buffer) nil)
 		       nil shell-command-switch command))
 
 ;;;###autoload
@@ -122,7 +122,7 @@ Output to the current buffer, replace text, and don't mingle error."
 	 (coding-system-for-read 'binary)
 	 (coding-system-for-write 'binary)
 	 default-enable-multibyte-characters
-	 start bit-array bit-arrays pixels pixel)
+	 start bit-array bit-arrays pixel)
     (with-temp-buffer
       (dolist (face faces)
 	(erase-buffer)