* wl-util.el (wl-biff-check-folder-async-callback): Fixed unread number.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fe649a9..b4f199f 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2001-11-08  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-util.el (wl-biff-check-folder-async-callback): Fixed unread
+       number.
+
        * wl-folder.el (wl-folder-check-one-entity): Use `new' value of diff.
 
        * wl-util.el (wl-biff-check-folder-async-callback): Ditto.

diff --git a/wl/wl-util.el b/wl/wl-util.el
index 208a2ca..780ea75 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -834,7 +834,7 @@ This function is imported from Emacs 20.7."
        (wl-folder-entity-hashtb-set wl-folder-entity-hashtb
                                     (nth 0 data)
                                     (list (nth 0 diff)
-                                          (nth 1 diff)
+                                          (- (nth 1 diff) (nth 0 diff))
                                           (nth 2 diff))
                                     (current-buffer))))
   (setq wl-folder-info-alist-modified t)