--- prom-mew.el.orig	Fri Nov  9 01:29:07 2001
+++ prom-mew.el	Fri Nov  9 01:43:26 2001
@@ -3,7 +3,7 @@
 ;;; $Id: prom-mew.el,v 2.52 2001/09/08 06:48:53 murata Exp $
 ;;; by Masahiro MURATA <muse@ba2.so-net.ne.jp>
 
-(defconst prom-version "Prom-Mew 2.00")
+(defconst prom-version "Prom-Mew 2.10am")
 
 ;; !!! this version is required Mew version 2.00 or later !!!
 
@@ -819,7 +819,7 @@
 	 (setq range (mew-input-range folder mew-ask-range))
 	 (setq scanp t)))
        ;;
-       (mew-mark-clean)
+       (mew-mark-clean t)
        (set-buffer-modified-p nil)
        (if jump (goto-char (point-max)))
        (cond
@@ -1169,7 +1169,7 @@
 	  (if (not (equal buf-name prom-folder-buffer))
 	      (progn
 		;;(mew-summary-folder-mark-exec)
-		(mew-mark-clean)
+		(mew-mark-clean t)
  		(if (get-buffer (mew-buffer-message))
 		    (delete-windows-on (mew-buffer-message)))
 		(kill-buffer buf)