Re: gnus on winxp

[Michael Schierl <schierlm-usenet@gmx.de>]

Frank Schmitt <ich@Frank-Schmitt.net> writes:

> You can fix the X-Face problem by installing the appropriate tools from
> gnuwin32.sourceforge.net (I think they are in compface and netpbm) and
> placing the following in .emacs (it replaces the call to icontopbm which
> I couldn't find with xbmtopbm):

icontopbm is in netpbm, but hereit complains about 

invalid input file -- premature EOF



>        (eval-after-load 'compface 
> 	 (defun uncompface (face)
> 	   "Convert FACE to pbm. Modified by Frank Schmitt"
> 	   (with-temp-buffer
> 	     (insert face)
> 	     (and (eq 0 (apply 'call-process-region (point-min) (point-max)
> 			       "uncompface"
> 			       'delete '(t nil) nil "-X" nil))
> 		  (progn
> 		    (goto-char (point-min))
> 		    (eq 0 (call-process-region (point-min) (point-max)
> 					       "xbmtopbm"
> 					       'delete '(t nil)))
> 		    )
> 		  (buffer-string)))))))

After removing the last two closing parens and adding a quote at the
beginning of the second line, i.e.

(eval-after-load 'compface 
  '(defun uncompface (face)
    "Convert FACE to pbm. Modified by Frank Schmitt"
    (with-temp-buffer
      (insert face)
      (and (eq 0 (apply 'call-process-region (point-min) (point-max)
			"uncompface"
			       'delete '(t nil) nil "-X" nil))
	   (progn
	     (goto-char (point-min))
	     (eq 0 (call-process-region (point-min) (point-max)
					"xbmtopbm"
					'delete '(t nil)))
	     )
	   (buffer-string)))))

it works fine. Thanks.

Michael