Re: [質問] X-Faceが表示さ れない

>>>>> In [semi-gnus-ja : No.20735]  wrote:

>  exec-path  uncompfaceicontopbm pnmnoraw 
> 

Emacs  pnmnoraw 

> Cygwin  icontopbm  CRLF 
>  advice 

> (defadvice uncompface (around for-icontopbm activate)
>   (let ((coding-system-for-write 'unix)) ad-do-it))

 Emacs CVS 
 716 Meadow 3.00 
 CRLF 


 Linux  CRLF  uncompface
icontopbm 

Gnus  XEmacs  dos  unix 
coding system  raw-text-unix raw-text 


--8<---------------cut here---------------start------------->8---
--- compface.el~	2006-02-08 04:17:15 +0000
+++ compface.el	2006-08-09 09:30:47 +0000
@@ -34,6 +34,8 @@
 or `faces-xface' and `netpbm' or `libgr-progs', for instance."
   (with-temp-buffer
     (insert face)
+    (let ((coding-system-for-read 'raw-text)
+	  (coding-system-for-write 'raw-text-unix))
     (and (eq 0 (apply 'call-process-region (point-min) (point-max)
 		      "uncompface"
 		      'delete '(t nil) nil))
@@ -52,6 +54,7 @@
 				      (current-buffer) t)
 	     t))
 	 (buffer-string))))
+  )
 
 (provide 'compface)
 
--8<---------------cut here---------------end--------------->8---