From: yoichi <yoichi>
Date: Sun, 25 Jan 2004 12:17:03 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-unsubscribe): Avoid compile warning.
X-Git-Tag: wl-2_11_24~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6316557fd0ba4402161a8a69b24b779cd3e68a03;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4419d97..51aeae2 100644
--- 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
--- 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