From 534f9b77c08aba84d1a66c93b3bc1f748c9f0f43 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 5 Dec 2004 08:23:06 +0000 Subject: [PATCH] * wl-fldmgr.el (wl-fldmgr-unsubscribe): Show message if it is not a folder under access group. --- wl/ChangeLog | 5 +++++ wl/wl-fldmgr.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-fldmgr.el (wl-fldmgr-unsubscribe): Show message if it is not + a folder under access group. + 2004-12-01 Yoichi NAKAYAMA * 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 -- 1.7.10.4