[mew-dist 22867] Re: Print multiple mails

[Kazu Yamamoto ( 山本和彦 )]

From: Masayuki Ataka <ataka at example.com>
Subject: [mew-dist 22738] Re: Print multiple mails

> > マークの付いたメールに対応するファイル群を下位コマンドに渡すのでよけれ
> > ばすぐに実装できますけど...
> > 
> それだけでも随分と助かります。
> よろしくお願いします。

とりあえず、作ってみました。

どのキーに割り当てましょうかね。

--かず

(defun mew-summary-call-command ()
  (interactive)
  (mew-summary-msg-or-part
   (let* ((fld (mew-summary-folder-name))
	  (msg (mew-summary-message-number))
	  (file (mew-expand-folder fld msg))
	  (command (read-string "Command: ")))
     (while (not (mew-which-exec command))
       (setq command (read-string "Command: ")))
     (message (format "Executing %s for %s..." command msg))
     (call-process command nil nil nil file)
     (message (format "Executing %s for %s...done" command msg)))))

(defun mew-summary-mark-call-command ()
  (interactive)
  (mew-summary-multi-msgs
   (let ((command (read-string "Command: ")))
     (while (not (mew-which-exec command))
       (setq command (read-string "Command: ")))
     (message (format "Executing %s ..." command))
     (apply 'call-process command nil nil nil FILES)
     (message (format "Executing %s ...done" command)))))