2003-01-02 Matthieu Moy <Matthieu.Moy@imag.fr>

[gnus] / lisp / gnus-fun.el

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index c1d6cd8..190e3c4 100644 (file)
--- 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
@@ -75,7 +75,8 @@ Output to the current buffer, replace text, and don't mingle error."
             (shell-quote-argument file)))))
 
 (defun gnus-convert-image-to-gray-x-face (file depth)
-  (let* ((mapfile (make-temp-name (expand-file-name "gnus." mm-tmp-directory)))
+  (let* ((mapfile (mm-make-temp-file (expand-file-name "gnus." 
+                                                      mm-tmp-directory)))
         (levels (expt 2 depth))
         (step (/ 255 (1- levels)))
         color-alist bits bits-list mask pixel x-faces)
@@ -122,7 +123,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 +190,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