[Mew-dist 12139] mew-summary-resend

[SAKAI Kiyoaka]

反則ですが、imput を使用する mew-summary-resend です。

コードは mew-1.92 にあったものを mew-1.95b19 でも使えるように修正した
だけです。

これで Mew が正式に対応してくれるまではしのげると思います。

(defun mew-summary-resend ()
  "Re-distribute this message with Resent-To:. It is strongly 
discouraged to use this command since beginners are always 
confused. Please use 'f' instead."
  (interactive)
  (if (not (mew-summary-message-number))
      (message "No message")
    (mew-current-set 'window (current-window-configuration))
    (let* ((to (mew-input-address "Resent-To: "))
	   (cc (if mew-ask-cc (mew-input-address "Resent-Cc: ")))
	   (srcnum (mew-summary-message-number))
	   (srcfile (mew-expand-folder (mew-summary-folder-name) srcnum))
	   (hdrfile (mew-folder-new-message mew-draft-folder))
	   (find-file-hooks nil))
      (if (not (or to cc))
	  (message "Not re-distributed since both to and cc wasn't specified.")
	(save-excursion
	  (set-buffer (find-file-noselect hdrfile))
	  (and to (mew-draft-header-insert "Resent-To:"
					   (mapconcat 'concat to ",")))
	  (and cc (mew-draft-header-inser "Resent-Cc:" 
					  (mapconcat 'concat cc ",")))
	  (save-buffer)
	  (message "Redistributing ... ")
	  (call-process "imput" nil nil nil 
			"--dist=1"
			(format "--distmsg=%s" srcfile)
			(format "--message=%s" hdrfile))
	  (message "Redistributing ... done")
	  (kill-buffer (current-buffer))
	  ))
      ))
  )

-- 
酒井 清隆 (E-mail: ksakai at example.com)