[Mew-dist 2091] multi-refile in mew-mark.el

[TSUMURA Tomoaki ( 津邑公暁 )]

つむら＠京大 です。

Mew 1.91-2b で、refile 先が複数のとき、最後に指定した
先にしか refile されないように思うのですが、

以下のようにするのが正しいのではないでしょうか？
＃ もっと適切な直しかたがあるかも。

間違っていたら すみません。
--
``The paths of glory lead but to the grave.''
                                    津邑 公暁＠情報工学専攻.京大
                                      tsumura at example.com
                    http://www.lab3.kuis.kyoto-u.ac.jp/~tsumura/

--- mew-mark.el.orig    Wed Sep 17 20:06:20 1997
+++ mew-mark.el Wed Sep 17 20:09:45 1997
@@ -530,7 +530,9 @@
                    (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))