From c4a96c3dec56c4075e684aebec60544ee67b15ee Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 18 Feb 2002 13:11:14 +0000 Subject: [PATCH] * gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Remove unused local varriable. --- lisp/ChangeLog | 3 +++ lisp/gnus-fun.el | 10 +++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ef9460a2a..37c51bcff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2002-02-18 Katsumi Yamaoka + * 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 c1d6cd896..4105a81d6 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) @@ -189,7 +189,7 @@ colors of the displayed X-Faces." (save-restriction (article-narrow-to-head) (gnus-article-goto-header "from") - (when (bobp) + (when (bobp) (insert "From: [no `from' set]\n") (forward-char -17)) (gnus-add-image -- 2.34.1