From 6316557fd0ba4402161a8a69b24b779cd3e68a03 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 25 Jan 2004 12:17:03 +0000 Subject: [PATCH] * wl-fldmgr.el (wl-fldmgr-unsubscribe): Avoid compile warning. --- wl/ChangeLog | 4 ++++ wl/wl-fldmgr.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * wl-fldmgr.el (wl-fldmgr-unsubscribe): Avoid compile warning. + 2004-01-21 Yoichi NAKAYAMA * 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 -- 1.7.10.4