(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 (file)
--- 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 (file)
--- 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)))