From: teranisi <teranisi>
Date: Tue, 17 Apr 2001 10:15:20 +0000 (+0000)
Subject: * elmo-multi.el (elmo-multi-folder-diff): Use dummy number list at first time.
X-Git-Tag: wl-2_6-root^3~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1e2f81f802e32f4a48d1ae51c026e73e57cadfe0;p=elisp%2Fwanderlust.git

* elmo-multi.el (elmo-multi-folder-diff): Use dummy number list at first time.

* elmo-util.el (toplevel): Require 'mcharset and 'pces.
(With a little help from 'NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>')

* wl-vars.el (toplevel): Require 'elmo-util.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index f8700f7..956f1ea 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,11 @@
+2001-04-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-multi.el (elmo-multi-folder-diff): Use dummy number list
+	at first time.
+
+	* elmo-util.el (toplevel): Require 'mcharset and 'pces.
+	(With a little help from 'NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>')
+
 2001-04-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-shimbun.el (elmo-folder-open-internal): Do nothing if unplugged.
diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 37eee2b..5eb4285 100644
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -278,6 +278,14 @@
 	(messages 0)
 	num-list
 	diffs)
+    ;; If first time, dummy numbers is used as current number list.
+    (unless numbers
+      (let ((i 0)
+	    (divider (elmo-multi-folder-divide-number-internal folder)))
+	(dolist (folder flds)
+	  (setq i (+ i 1))
+	  (setq numbers
+		(cons (* i divider) numbers)))))
     (setq num-list
 	  (elmo-multi-split-numbers folder
 				    (elmo-uniq-list
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 1c29b0f..fb32333 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -32,6 +32,8 @@
 (eval-when-compile (require 'cl))
 (require 'elmo-vars)
 (require 'elmo-date)
+(require 'mcharset)
+(require 'pces)
 (require 'std11)
 (require 'eword-decode)
 (require 'utf7)
diff --git a/wl/ChangeLog b/wl/ChangeLog
index c56feb4..41a994c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-04-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (toplevel): Require 'elmo-util.
+
 2001-04-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-message-regexp): Fixed number regexp.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index bc3cb0d..137b09b 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -32,6 +32,7 @@
 ;;
 
 (require 'elmo-vars)
+(require 'elmo-util)
 
 (if (module-installed-p 'custom)
     (require 'custom))