[Mew-dist 14933] Re: b77

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 14921] b77
Message-ID: <20001117.180050.41633831.kazu at example.com>
Date: Fri, 17 Nov 2000 18:01:11 +0900

kazu> b77 をリリースします。

kazu> - Join 復活

どうもありがとうございます。しかし、若干問題があります。

1. "mewls -i file" をしたときに、特定の環境(*1)では file が
 'CRLF' だと

  % mewls.exe -i zzz.lst
  mewls.exe: can't change folder to +inbox^M.

 などとなってしまいます。^^;;;

(*1) Win32 で mewls を cygwin で make していて、なおかつ tempdir
 を 'binary mount(*2)' しているとき。'binary mount' していないときや、
 BCC で make しているときは 'LF' でも 'CRLF' でも問題ないのです
 が。。。

(*2) cygwin 特有の mount の方法。binary を設定している directory
 の file を cygwin を使って make したアプリケーションから open
 すると、すべて 'binary open' するようになる。というもの。


2. 最後に touch-folder して欲しいです。


3. 現状では、最後に reassemble するときに、もとのメールが持って
 いる header をすべて消してしまいますが、最初の subsequent なメー
 ルのヘッダーは消さずにいて欲しいです。
 rfc2046 をみると、2番目以降は消しなさい、と書いてあるけど、一番
 目の subsequent な message のヘッダーを消しましょう、とは書いて
 いないと思うし。

# が、私の英語力だと危ない ^^;;;

とりあえず、1. 2. のパッチだけつけておきます。(パッチ内の行番号
が違うと思いますが気にしないでくださいませ :-)

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-summary.el.orig	Fri Nov 17 18:16:41 2000
+++ mew-summary.el	Mon Nov 20 11:44:18 2000
@@ -1824,7 +1832,9 @@
 	  (setq fld-msg (car targets))
 	  (setq targets (cdr targets))
 	  (insert (cdr fld-msg) "\n"))
-	(write-region (point-min) (point-max) tfile nil 'no-msg)
+	(mew-frwlet
+	 mew-cs-text-for-read mew-cs-text-for-write
+	 (write-region (point-min) (point-max) tfile nil 'no-msg))
 	(mew-erase-buffer)
 	(call-process mew-prog-mewls nil t nil
 		      "-b" mew-mail-path "-i" tfile
@@ -1882,10 +1892,11 @@
 	     (re-search-forward mew-eoh nil t)
 	     (forward-line)
 	     (delete-region (point-min) (point)))
-	   (setq i (1+ i))))
-	(write-region (point-min) (point-max)
-		      (mew-folder-new-message folder)
-		      nil 'no-msg)
+	   (setq i (1+ i)))
+	 (write-region (point-min) (point-max)
+		       (mew-folder-new-message folder)
+		       nil 'no-msg))
+	(mew-touch-folder folder)
 	(message "Joining ... done"))
       (if (y-or-n-p (format "Go to %s? " folder))
 	  (mew-summary-goto-folder t folder))))))