[mew-dist 18830] Re: preserving marks

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 18820] Re: preserving marks
Message-ID: <20010910.153346.11625499.kazu at example.com>
Date: Mon, 10 Sep 2001 15:33:46 +0900 (JST)

kazu> > 『まず、scan update してね』と促進して終了する、
kazu> > 
kazu> > というのに一票。
kazu> 
kazu> 実装しました。

現状のように、Sort で scan が必要なのに 'n' を答えたとき、そのま
まの状態で Sort がはじまるため、できあがった summary が *歯抜け*
になると思います。

   1  02/27
   2  04/13
   3  07/11
  (4) 03/28   <= 4 は、まだ summary に出現していない。

↓ Sort => date ("scan する?" には "No" と答える)

   1  02/27   
   3  07/11   <= 2 が歯抜けになる。4 も出ない。

↓ Scan => all

   1  02/27
   2  03/28
   3  04/13
   4  07/11

mew-rendezvous() を使って scan の終了を待つという方針なら、問答
無用で scan しちゃったほうが、こういう事故が無くなっていいと思い
ます。

また、Pack も "Scan する？", "Pack する？" と二回聞かれるのは少々
うざったいので、こちらも問答無用で scan するということで。。。

# と、意見を変えてしまいます。^^;
## あとは、(個人的には) message number の桁ずれ ^^;;;

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-sort.el.orig	Mon Sep 10 15:58:56 2001
+++ mew-sort.el	Mon Sep 10 19:07:08 2001
@@ -143,14 +143,6 @@
    (mew-summary-not-in-queue
     (mew-summary-not-in-draft
      (when (mew-summary-exclusive-p)
-       ;;
-       (when (mew-summary-folder-dir-newp)
-	 (when (y-or-n-p "Scan update? ")
-	   (let* ((folder (mew-summary-folder-name))
-		 (range (mew-input-range folder nil)))
-	     (mew-scan (mew-scan-mewls-src folder range)))
-	   (mew-rendezvous mew-summary-buffer-process)))
-       ;;
        (let* ((buf (current-buffer))
 	      (folder (mew-summary-folder-name))
 	      (region (when arg
@@ -181,6 +173,11 @@
 	      (i 0)
 	      (tmpbuf (generate-new-buffer mew-buffer-prefix))
 	      ent idx med num value files)
+	 ;;
+	 (when (mew-summary-folder-dir-newp)
+	   (mew-scan (mew-scan-mewls-src folder (mew-input-range folder nil)))
+	   (mew-rendezvous mew-summary-buffer-process))
+	 ;;
 	 (if arg
 	     (message "Sorting %s: %s..." folder range)
 	   (message "Sorting %s..." folder))
@@ -308,14 +305,6 @@
    (mew-summary-not-in-queue
     (mew-summary-not-in-draft
      (when (mew-summary-exclusive-p)
-       ;;
-       (when (mew-summary-folder-dir-newp)
-	 (when (y-or-n-p "Scan update? ")
-	   (let* ((folder (mew-summary-folder-name))
-		 (range (mew-input-range folder nil)))
-	     (mew-scan (mew-scan-mewls-src folder range)))
-	   (mew-rendezvous mew-summary-buffer-process)))
-       ;;
        (unless (and mew-ask-pack
 		    (not (y-or-n-p
 			  (format "Pack %s? " (mew-summary-folder-name)))))
@@ -326,6 +315,11 @@
 		(n 1)
 		(inhibit-quit t)
 		msgs msg src dst)
+	   ;;
+	   (when (mew-summary-folder-dir-newp)
+	     (mew-scan (mew-scan-mewls-src folder (mew-input-range folder nil)))
+	     (mew-rendezvous mew-summary-buffer-process))
+	   ;;
 	   (message "Packing %s..." folder)
 	   (setq mew-summary-buffer-process t)
 	   (setq msgs (mew-dir-messages "."))