[Mew-dist 1211] Execute "Delete" mark on trash folder.

[Shinji Kawakami]

河上＠JEOLシステムテクノロジーです。

Deleteマークを実行して、trash フォルダに移動するようになった仕様が
気に入っているんですけど、trash フォルダで、Deleteマークを実行して
も無視する仕様になってるようですね…。

trash フォルダでDeleteマークを実行した時、ホントに消して欲しいと思
うのは私だけでしょうか?

そこで、それを実現するパッチを作ってみました。
# 大した事はしてませんが…。

# imrm が使えるかと思ったら、imrm はフォルダの中身全部消しちゃうん
# ですね…。

-- 
河上眞二               JEOL System Technology Co.,Ltd.
Shinji Kawakami       Semiconductor Engineering Group
kawakami at example.com, include at example.com(Private)

-------------- next part --------------
--- mew-mark.el.ORIG	Sun Jun 15 20:58:13 1997
+++ mew-mark.el	Tue Jul  8 20:35:08 1997
@@ -494,12 +494,17 @@
 	;;
 	;; delete at once
 	;;
-	(if (and dels (not (equal src mew-trash-folder)))
-	    (apply (function call-process)
-		   mew-prog-immv nil nil nil
-		   (format "--src=%s" src)
-		   mew-trash-folder
-		   dels))
+	(if dels
+	    (if (equal src mew-trash-folder)
+		(apply (function call-process)
+		       mew-prog-rmm nil nil nil
+		       dels)
+	      ;; else (src folder is not trash folder)
+	      (apply (function call-process)
+		     mew-prog-immv nil nil nil
+		     (format "--src=%s" src)
+		     mew-trash-folder
+		     dels)))
 	;;
 	;; ending...
 	;;
--- mew.el.ORIG	Tue Jul  8 10:38:28 1997
+++ mew.el	Tue Jul  8 20:27:57 1997
@@ -430,6 +430,7 @@
 (defvar mew-prog-imput       "imput")
 (defvar mew-prog-imsort      "imsort")
 (defvar mew-prog-imgrep      "imgrep")
+(defvar mew-prog-rmm         "/bin/rm")
 (defvar mew-prog-mime-encode "mewencode")
 (defvar mew-prog-mime-decode "mewdecode")
 (defvar mew-prog-audio       (list "cat" "/dev/audio" mew-buffer-tmp nil))