From cdcc425e55c4aa47bd029a3c015217fad43f938b Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 26 Jun 2004 05:37:45 +0000 Subject: [PATCH] (wl-delete-entity-sub): Add folder name to unsubscribe list only if argument CLEAR is nil. --- wl/ChangeLog | 5 +++++ wl/wl-fldmgr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 815cab9..0d678eb 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2004-06-26 Hiroya Murata + + * wl-fldmgr.el (wl-delete-entity-sub): Add folder name to + unsubscribe list only if argument CLEAR is nil. + 2004-06-25 Yoichi NAKAYAMA * wl-draft.el (wl-draft-reply): Decode subject before removing diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el index fb5b135..b04b1e5 100644 --- a/wl/wl-fldmgr.el +++ b/wl/wl-fldmgr.el @@ -336,7 +336,7 @@ return value is diffs '(-new -unread -all)." (message "%s not found" key) (setq update nil) (throw 'done t))) - (when access + (when (and access (not clear)) (if is-group (wl-append unsubscribes (list (list (elmo-string key) 'access nil))) -- 1.7.10.4