From: okazaki <okazaki>
Date: Thu, 25 May 2000 19:52:30 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-localdir-pack-number): Renamed
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=844f96bb7333c524e8df821bf3d3441fca9d72ee;p=elisp%2Fwanderlust.git

* elmo-localdir.el (elmo-localdir-pack-number): Renamed
the local variable for a packed number self descriptively.
---

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 32db3f8..ff76b8c 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -397,37 +397,37 @@
   (let ((dir (elmo-localdir-get-folder-directory spec))
 	(onum-alist (elmo-msgdb-get-number-alist msgdb))
 	(omark-alist (elmo-msgdb-get-mark-alist msgdb))
-	i flist onum mark new-mark-alist total)
-    (setq i 0)
+	(new-number 1)			; first ordinal position in localdir
+	flist onum mark new-mark-alist total)
     (setq flist
 	  (if elmo-pack-number-check-strict
-	      (elmo-call-func spec "list-folder") ;; allow localnews
+	      (elmo-call-func spec "list-folder") ; allow localnews
 	    (mapcar 'car onum-alist)))
     (setq total (length flist))
     (while flist
-      (setq i (1+ i))
       (when (> total elmo-display-progress-threshold)
 	(elmo-display-progress
 	 'elmo-localdir-pack-number "Packing..."
-	 (/ (* i 100) total)))
+	 (/ (* new-number 100) total)))
       (setq onum (car flist))
-      (when (not (eq onum i)) ;; why \=() is wrong..
+      (when (not (eq onum new-number))		; why \=() is wrong..
         (elmo-bind-directory
 	 dir
 	 ;; xxx  nfs,hardlink
-	 (rename-file (int-to-string onum) (int-to-string i) t))
+	 (rename-file (int-to-string onum) (int-to-string new-number) t))
         ;; update overview
         (elmo-msgdb-overview-entity-set-number
 	 (elmo-msgdb-overview-get-entity onum msgdb)
-	 i)
+	 new-number)
 	;; update number-alist
-	(setcar (assq onum onum-alist) i))
+	(setcar (assq onum onum-alist) new-number))
       ;; update mark-alist
       (when (setq mark (cadr (assq onum omark-alist)))
 	(setq new-mark-alist
 	      (elmo-msgdb-mark-append
 	       new-mark-alist
-	       i mark)))
+	       new-number mark)))
+      (setq new-number (1+ new-number))
       (setq flist (cdr flist)))
     (message "Packing...done.")
     (list (elmo-msgdb-get-overview msgdb)