X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-dop.el;h=3ddb76f031fddef0f7fa2fedcc22f2446677816b;hb=64eb91d7fe775e78e0f1e6555b595e40f391260a;hp=e3a6d955eb82f59b08ef02442ac85817ac4d8e09;hpb=687bfef605a5e32079f301e1f3b5bff691a12964;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
index e3a6d95..3ddb76f 100644
--- a/elmo/elmo-dop.el
+++ b/elmo/elmo-dop.el
@@ -88,20 +88,21 @@ Automatically loaded/saved.")
 
 (defun elmo-dop-queue-flush ()
   "Flush disconnected operations that consern plugged folders."
+  ;; obsolete
+  (unless (or (null elmo-dop-queue)
+	      (vectorp (car elmo-dop-queue)))
+    (if (y-or-n-p "\
+Saved queue is old version(2.6). Clear all pending operations? ")
+	(progn
+	  (setq elmo-dop-queue nil)
+	  (message "All pending operations are cleared.")
+	  (elmo-dop-queue-save))
+      (error "Please use 2.6 or earlier.")))
   (elmo-dop-queue-merge)
   (let ((queue-all elmo-dop-queue)
 	queue
 	(count 0)
 	len)
-    ;; obsolete
-    (unless (or (null queue-all)
-		(vectorp (car queue-all)))
-      (if (y-or-n-p "Saved queue is old version(2.6). Clear all pending operations? ")
-	  (progn
-	    (setq elmo-dop-queue nil)
-	    (message "All pending operations are cleared.")
-	    (elmo-dop-queue-save))
-	(error "Please use 2.6 or earlier.")))
     (while queue-all
       (if (elmo-folder-plugged-p
 	   (elmo-make-folder (elmo-dop-queue-fname (car queue-all))))