[mew-dist 28064] mew-summary-join

Kouichi Satake ksatake at example.com
2008年 2月 15日 (金) 21:34:39 JST


佐竹と言います。こんにちわ。

Mew 5.2.50 を "Meadow-3.00-dev (KIKU)" で使ってます。

mew-summary-join が動作していないように思います。

mewl が mew-suffix をちゃんと見ているのに、テンポラリファイルに
書き出す方が mew-suffix を考慮していないように見えました。
(私はLispは良く分からないのでなんとなくですが。)

ちなみに私は (setq mew-use-suffix t) を指定しています。

以下のような修正でうまく動いているようです。
===========================================================
--- mew-summary4.el.org	2007-08-04 14:47:36.189950200 +0900
+++ mew-summary4.el	2008-02-15 20:52:58.546875000 +0900
@@ -777,7 +777,7 @@
 	 (while targets
 	   (setq fld-msg (car targets))
 	   (setq targets (cdr targets))
-	   (insert (cdr fld-msg) "\n"))
+	   (insert (cdr fld-msg) mew-suffix "\n"))
 	 (mew-frwlet
 	  mew-cs-text-for-read mew-cs-text-for-write
 	  (write-region (point-min) (point-max) tfile nil 'no-msg))
===========================================================
この修正が正しい修正なのかどうかわかりませんが報告しておきます。

--
佐竹



Mew-dist メーリングリストの案内