[Mew-Win32 02804] Re: How to make multi reply.

[Hideyuki SHIRAI ( 白井秀行 )]

From: yama at example.com <yama at example.com> さん曰く
Subject: [Mew-Win32 02803] How to make multi reply.
Message-ID: <20001004.155359.127863368.yama at example.com>
Date: Wed, 04 Oct 2000 15:53:59 +0900 (JST)

やま> 今回も，質問させてください。Mewでは特定のフォルダ以下に格納され
やま> たメールに対して一括して同じ返事をするような機能はありますでしょ
やま> うか？

やま> infoなどを見てみたところ，メッセージの再送について書いてありまし
やま> たが，あくまで返事の宛先は自分で入力するんですよね？特定フォルダ
やま> 以下のFrom行をすべて新しい草稿のTo行へ入れるというようなことはで
やま> きますでしょうか？ご存じの方がいらっしゃいましたらアドバイスをい
やま> ただけますと幸いです。

よくわかんないのですが、こういうことですか？

(defun mew-insert-all-from-address (&optional fld)
  (interactive)
  (setq fld (or fld (mew-input-folder (mew-inbox-folder))))
  (let ((msgs (directory-files (mew-expand-folder fld) nil "^[1-9][0-9]*$" 'no-sort))
	froms from)
    (save-excursion
      (while msgs
	(mew-set-buffer-tmp)
	(mew-insert-message fld (car msgs) mew-cs-autoconv
			    mew-header-reasonable-size)
	(setq msgs (cdr msgs))
	(setq from (mew-header-parse-address mew-from:))
	(if from (setq froms (cons from froms))))
      (setq froms (mew-uniq-list froms)))
    (insert (mapconcat (function identity) (sort froms 'string<) ", "))))

試して貰えればわかると思うのですが、
M-x mew-insert-all-from-address で folder を指定すると、その
folder 内のメールの From: をかき集めて、その場所に insert します。

やま> こんにちは。山尾ともします。いつもどちて坊やのような質問ばかりで
やま> すみません。

# "どちて坊や" って丁度うちの息子ぐらいかしら？ 最近、難しい質問
# が多い。

-- 
白井秀行＠仕事なんかやってられるか！！ 状態 ^^;;;