From: hmurata <hmurata>
Date: Sat, 26 Jun 2004 05:37:45 +0000 (+0000)
Subject: (wl-delete-entity-sub): Add folder name to
X-Git-Tag: wl-2_11_31~82
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cdcc425e55c4aa47bd029a3c015217fad43f938b;p=elisp%2Fwanderlust.git

(wl-delete-entity-sub): Add folder name to
unsubscribe list only if argument CLEAR is nil.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-fldmgr.el (wl-delete-entity-sub): Add folder name to
+	unsubscribe list only if argument CLEAR is nil.
+
 2004-06-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* 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)))