[Mew-dist 1769] Re: Delete Mail in +trash

[miya at example.com]

>>>>> ">" == 山本和彦  <Kazu> writes:

宮前＠最近MLに参加しました。

>> From: Hideaki Tanaka <hidebu at example.com>
>> Subject: [Mew-dist 1702] Delete Mail in +trash
>> Date: Thu, 28 Aug 1997 12:25:34 +0900

>> 2. 保存せず、きっぱり消してしまいたい時はどう設定するのでしょう
>> mew.elでは、それらしい変数は定義されていないようです。

>> 今のところ方法はありません。

>> Mew では、
>> 	folder 自体の整頓
>> 	+trash 内のメールの削除
>> ができず、コマンドラインの作業に責任転嫁されています。

>> ぐっとくる提案があれば、この問題を解決したいと思っています。

ぐっとくるかどうかは分かりませんが…
mew-mark.elを眺めていたら +trash folderだったら Deleteしないような
記述がありました。だったら、+trash folderだったら本当に削除してしまえば
いいのではと思い以下のようにしてみました。

------ mew.el ---
;;;
;;; Sub-programs
;;;
(defvar mew-prog-imrm        "imrm") ;; <--追加
(defvar mew-prog-imget       "imget")

----- mew-mark.el ---
	;;
	;; delete at once
	;;
;;;;;;;   Fri Aug 29 09:58:11 1997 By miya at example.com 
;; 	(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))
;;;;;;;   Fri Aug 29 09:58:11 1997 By miya at example.com 
	 ;; for added to miya
	 (if dels
	   (cond ((equal src mew-trash-folder)
			  (apply (function call-process)
					 mew-prog-imrm nil nil nil
					 (format "--src=%s" src)
					 dels))
			 (t (apply (function call-process)
					   mew-prog-immv nil nil nil
					   (format "--src=%s" src)
					   mew-trash-folder
					   dels))))
	;; end miya
	;;
	;; ending...
	;;

------
    宮前 五郎 ( Miyamae Goroh )	ＳＯＮＹ(株)
	Email: miya at example.com