[Mew-Win32 02396] Re: imget --src=local with ^Z (Re: b25.)

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-Win32 02395] imget --src=local with ^Z (Re:  b25.)
Message-ID: <20000204.192308.24555706.shirai at example.com>
Date: Fri, 04 Feb 2000 19:23:08 +0900 (JST)

白井> ○ Win32 (NT、95 とも)
白井>  やっぱり '^Z' はファイルの最後だよね。と思ったらしくて、そのメー
白井>  ルで処理を止めてしまう。

とりあえず、私が *もういやモード* になってしまったので、
mew-win32-mvm.el の緊急パッチだけ出しておきます。この前の新型の
だけど、0.20 にもあたります。

-- 
白井秀行＠なさけないパッチ ^^;;;

--- mew-win32-mvm.el.orig	Thu Jan 27 18:59:13 2000
+++ mew-win32-mvm.el	Fri Feb  4 20:00:18 2000
@@ -212,6 +212,7 @@
   (interactive "fCrashbox: ")
   (let ((buf (get-buffer-create "*mew crashbox*"))
 	(folder mew-inbox-folder)
+	(eof-str (char-to-string ?\032)) ;; ^Z
 	(crend-str (concat (char-to-string ?\015) "$")) ;; ^M
 	(msgtop-str (concat (char-to-string ?\014) "\n.*unseen.*\n"))	;; ^L
 	(msgend-str (concat "\n" (char-to-string ?\037)))		;; ^_
@@ -224,6 +225,9 @@
 	      (progn
 		(mew-frwlet mew-cs-win32-mvm mew-cs-win32-mvm
 			    (insert-file-contents crashbox))
+		(goto-char (point-min))
+		(while (re-search-forward eof-str nil t)
+		  (replace-match ""))
 		(goto-char (point-min))
 		(while (re-search-forward crend-str nil t)
 		  (replace-match ""))