* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))