[Mew-dist 2093] Re: multi-refile in mew-mark.el

[TSUMURA Tomoaki ( 津邑公暁 )]

つむら＠京大 です。

何度もすみません。

In the message "[Mew-dist 2091] multi-refile in mew-mark.el"
	of Wed, 17 Sep 1997 20:14:15 +0900,
わたし wrote:

> 以下のようにするのが正しいのではないでしょうか？
> ＃ もっと適切な直しかたがあるかも。
> 
> 間違っていたら すみません。

とりあえず間違ってました。

--- mew-mark.el.orig    Wed Sep 17 20:53:02 1997
+++ mew-mark.el Wed Sep 17 20:56:32 1997
@@ -530,7 +530,8 @@
                    (apply (function call-process)
                           mew-prog-immv nil nil nil
                           (format "--src=%s" src)
-                          (append folder-list (list msg)))
+                          (cons (mapconcat 'copy-sequence folder-list ",")
+                                (list msg)))
                  ;; else (folder-list has only one folder)
                  (setq folder (car folder-list))
                  (if (setq tmp (assoc folder refal))