[xyzzy:05531] Re: KaMail で 8bit

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

chiyu さん、こんにちは。

	2000年11月13日(月)[23:46:18]の、
	[xyzzy:05528] Re: KaMail で 8bit
	への返事です。

こうすれば動くような気がしたりしなかったりしますが、あ
まり信用しないでください。

--- kamail-view.l.1~	Sat Sep  9 18:40:22 2000
+++ kamail-view.l	Tue Nov 14 17:25:20 2000
@@ -432,7 +432,10 @@
 	   (let ((file (local-mail-to-buffer (kamail-folder-local-name) (parse-integer num))))
 	     (when (and file
 			(kamail-buffer-add-status (list *kamail-status-seen*)))
-	       (write-region (point-min) (point-max) file))
+	       (let ((encoding (buffer-fileio-encoding)))
+		 (set-buffer-fileio-encoding *encoding-sjis*)
+		 (write-region (point-min) (point-max) file)
+		 (set-buffer-fileio-encoding encoding)))
 	     t
 	   ))
 	  ((char= type *kamail-folder-spool-char*)

--- kamail-get.l.1~	Tue Aug 29 16:58:40 2000
+++ kamail-get.l	Tue Nov 14 17:17:34 2000
@@ -173,7 +173,7 @@
   (let (file
 	header)
     (save-excursion
-      (kamail-temp-create-buffer)
+      (kamail-temp-create-buffer *encoding-binary*)
       (multiple-value-setq (file newnum)
 	(kamail-folder-local-newfile folder newnum))
       (if (pop3-retr-to-buffer pop num)

-- 
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx