From: yoichi <yoichi>
Date: Sun, 5 Dec 2004 08:23:06 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-unsubscribe): Show message if it is not
X-Git-Tag: wl-2_12-root~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=534f9b77c08aba84d1a66c93b3bc1f748c9f0f43;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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