[Mew-dist 12362] patch for deleting .mqi file in +queue folder.

[Shuichi KITAGUCHI ( 北口修一 )]

北口％小さいパッチ専門 です。

+queue で D mark を付けて x すると *.mqi がみなしごになってしまって
可哀そうなので、葬ってあげるパッチです。

また、+queue で番号が歯抜けになった状態で pack すると悲惨な目に
遭う(った)のですが、今は過渡期なので Mew が IM から離れてからまた
考えるべきでしょうね。


--
Shuichi Kitaguchi <kit at example.com>
-------------- next part --------------
Index: mew-mark.el
===================================================================
RCS file: /usr/local/CVS/mew/mew-mark.el,v
retrieving revision 1.1.1.14
diff -c -r1.1.1.14 mew-mark.el
*** mew-mark.el	2000/02/03 10:10:25	1.1.1.14
--- mew-mark.el	2000/02/14 14:04:29
***************
*** 545,550 ****
--- 545,553 ----
  	(setq dstfile (mew-expand-folder mew-trash-folder
  					 (int-to-string num)))
  	(setq num (1+ num))
+ 	(if (string-match "queue" srcfile)
+ 	    (if (mew-file-regular-p (concat srcfile mew-queue-info-suffix))
+ 		(delete-file (concat srcfile mew-queue-info-suffix))))
  	(if (mew-file-regular-p srcfile)
  	    ;; if not, the marked line will be deleted anyway.
  	    (rename-file srcfile dstfile 'override)))