* wl-fldmgr.el (wl-fldmgr-unsubscribe): Show message if it is not

a folder under access group.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2dd32c0..6fec881 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-05  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-fldmgr.el (wl-fldmgr-unsubscribe): Show message if it is not
+       a folder under access group.
+
 2004-12-01  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl-message.el (wl-message-buffer-prefetch-subr): Fix argument of

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 3ea0b0d..058c3e0 100644 (file)
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -1174,7 +1174,8 @@ return value is diffs '(-new -unread -all)."
                  (save-excursion (forward-line -1)
                                  (wl-highlight-folder-current-line))
                  (remove-text-properties beg (point) '(wl-folder-entity-id))
-                 (setq execed t))))))
+                 (setq execed t))
+             (message "not an access group folder")))))
        (set-buffer-modified-p nil)))
     (if (or force execed)
        (progn