[Mew-dist 13847] Re: uumerge (was b52)

[Tatsuya Kinoshita]

In message "[Mew-dist 13783] b52"
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> * uumerge が復活

デコードに失敗します。

メッセージの body だけを扱うよう、てきとーに修正してみると、うま
く動いているようです。

-- 
木下達也 (Tatsuya Kinoshita)
E-mail: tats at example.com, tatsuyak at example.com
-------------- next part --------------
--- mew-1.95b52-mew-dist-13824/mew-summary.el	Mon Aug  7 22:38:44 2000
+++ mew-1.95b52-tats20000814/mew-summary.el	Mon Aug 14 20:26:16 2000
@@ -1503,7 +1503,9 @@
 	  (while files
 	    (mew-erase-buffer)
 	    (insert-file (car files))
-	    (write-region (point-min) (point-max) tmp 'append 'no-msg)
+	    (if (re-search-forward mew-eoh nil t)
+		(forward-line))
+	    (write-region (point) (point-max) tmp 'append 'no-msg)
 	    (setq files (cdr files))))
 	 (mew-set-buffer-tmp dir)
 	 ;; "+" is dummy to let mewencode use the embedded filiname