diff --git a/lisp/gnus/gnus-fun.el b/lisp/gnus/gnus-fun.el

index 1c9b4ce..6d43d23 100644

--- a/lisp/gnus/gnus-fun.el

+++ b/lisp/gnus/gnus-fun.el

@@ -250,20 +250,21 @@ colors of the displayed X-Faces."

   (interactive)

   (shell-command "xawtv-remote snap ppm")

   (let ((file nil)

+    (tempfile (make-temp-file "gnus-face-" nil "*.ppm"))

 	result)

     (while (null (setq file (directory-files "/tftpboot/sparky/tmp"

 					     t "snap.*ppm")))

       (sleep-for 1))

     (setq file (car file))

     (shell-command

-     (format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | pnmscale -width 48 -height 48 | ppmtopgm > /tmp/gnus.face.ppm"

-	     file))

+     (format "pnmcut -left 110 -top 30 -width 144 -height 144 '%s' | pnmscale -width 48 -height 48 | ppmtopgm >> %s"

+	     file tempfile))

     (let ((gnus-convert-image-to-face-command

 	   (format "cat '%%s' | ppmquant %%d | ppmchange %s | pnmtopng"

 		   (gnus-fun-ppm-change-string))))

-      (setq result (gnus-face-from-file "/tmp/gnus.face.ppm")))

+      (setq result (gnus-face-from-file tempfile)))

     (delete-file file)

-    ;;(delete-file "/tmp/gnus.face.ppm")

+    ;;(delete-file tempfile)

     result))

 (defun gnus-fun-ppm-change-string ()