* wl-fldmgr.el (wl-fldmgr-unsubscribe): Avoid compile warning.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4419d97..51aeae2 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-01-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-fldmgr.el (wl-fldmgr-unsubscribe): Avoid compile warning.
+
 2004-01-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl-folder.el (wl-folder-jump-to-current-entity): Cosmetic fix.

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index caced28..3a3ab0f 100644 (file)
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -1151,7 +1151,8 @@ return value is diffs '(-new -unread -all)."
            (setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
            (if (eq (cdr (nth 2 tmp)) 'access)
                (when (wl-fldmgr-cut tmp)
-                 (pop wl-fldmgr-cut-entity-list)  ;; don't leave cut-list
+                 ;; don't leave cut-list
+                 (setq wl-fldmgr-cut-entity-list (cdr wl-fldmgr-cut-entity-list))
                  (setq beg (point))
                  (insert indent wl-folder-unsubscribe-mark
                          (if is-group