[Mew-dist 07853] Re: 1.94b12

[Hideyuki SHIRAI ( 白井秀行 )]

こんにちは、白井です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 07841] 1.94b12
Message-ID: <19990302090604X.kazu at example.com>
Date: Tue, 2 Mar 1999 09:06:27 +0900

kazu> mew-1.94b12.tar.gz を ftp.Mew.org:/pub/Mew/beta に置きました。昨日の 3 
kazu> つのパッチに加え、メールを簡単に添付できるコマンドを実装しました。添付
kazu> 領域で "y" とすると、Message モードに表示されているメールが添付できま
kazu> す。

せっかく別コマンドにするのでしたら、

1. mew-current-get が nil ならやめちゃう。attach する Message は
 必ず *見ている* Meassage とする。

2. C-cC-y をするときと違い、attach する Message がわかりにくいた
 め、間違って違うメールを attach する可能性が高い。だから、その
 Message を表示して確認を求める。

というのはいかがでしょうか？

今一、どうやって実現したら良いのかがすっきりしないのですが、以下
の patch のような感じの機能です。

# 本当は、summary + message + draft の三分割表示にしたかったけど、
# 方法がわからなかったので、全面表示で確認をうながしています。
# この方が Message の内容がたくさん見えてミスが減るという利点も
# あります。 > こじつけ ^^

-------------- next part --------------
--- mew-attach.el.orig	Mon Mar  1 23:05:38 1999
+++ mew-attach.el	Tue Mar  2 12:41:49 1999
@@ -404,12 +404,23 @@
 on \".\" in attachments."
   (interactive)
   (let ((fld-msg (mew-current-get 'message))
-	default)
+	from)
     (if fld-msg
-	(setq default (mew-expand-folder (car fld-msg) (cdr fld-msg))))
-    (mew-attach-duplicate (function mew-symbolic-link)
-			  "link" nil nil nil default)))
-
+	(progn
+	  (setq from (mew-expand-folder (car fld-msg) (cdr fld-msg)))
+	  (mew-current-set 'draft-window (current-window-configuration))
+	  (mew-summary-goto-folder nil (car fld-msg))
+	  (delete-other-windows)
+	  (mew-summary-jump-message (cdr fld-msg))
+	  (mew-summary-display t)
+	  (if (not (y-or-n-p (format "Attach this message (%s/%s)? "
+				     (car fld-msg) (cdr fld-msg))))
+	      (set-window-configuration (mew-current-get 'draft-window))
+	    (set-window-configuration (mew-current-get 'draft-window))
+	    (mew-attach-duplicate (function mew-symbolic-link)
+				  "link" nil from)))
+      (message "Can't find current message."))))
+  
 (defun mew-attach-find-new-file ()
   "Open a new file into a buffer on \".\" in attachments."
   (interactive)