[Mew-dist 04633] Re: C-cC-a の undo

[Hideaki MORINAKA]

森中＠アンリツです。

TAKAHASHI Masafumi <takahasi at example.com> wrote:
Subject: [Mew-dist 04619] Re: C-cC-a の undo
Date: Mon, 11 May 1998 20:46:34 +0900

> > FAQ だったらごめんなさい。C-cC-a(mew-draft-prepare-attachments)の undo 
> > はどうやったらできるのでしょうか? ついうっかり C-cC-a をしてしまい、
> 
> --- attachments --- のすぐ次の行にポイントを移動して d です。
> info の Node: mime-comp の最後のあたりに書いてあります。

"Delete entire attachments? (y or n)"がミニバッファに残った
ままになるので、y or nの動作に応じたメッセージを表示するよう
にしてみました。

1.93b31に対するパッチになっています。

*** mew-attach.el.orig	Mon May 11 13:49:11 1998
--- mew-attach.el	Tue May 12 14:56:32 1998
***************
*** 303,309 ****
  	      (goto-char (marker-position mew-draft-buffer-attach))
  	      (delete-region (point) (point-max))
  	      (setq mew-draft-buffer-attach nil)
! 	      ))
        (let* ((nums (mew-attach-nums))
  	     (subdir (mew-attach-expand-path mew-encode-syntax nums))
  	     (mimedir (mew-expand-folder (mew-draft-to-mime (buffer-name))))
--- 303,310 ----
  	      (goto-char (marker-position mew-draft-buffer-attach))
  	      (delete-region (point) (point-max))
  	      (setq mew-draft-buffer-attach nil)
! 	      (message "attachments were deleted"))
! 	  (message "attachments were not deleted"))
        (let* ((nums (mew-attach-nums))
  	     (subdir (mew-attach-expand-path mew-encode-syntax nums))
  	     (mimedir (mew-expand-folder (mew-draft-to-mime (buffer-name))))

---*---*---*---*---*---*---*---*---*---*---*---*---*---*---*---
 Hideaki Morinaka <morinaka at example.com>
 ANRITSU CORPORATION
 Engineering Department, Information Systems Division