2001-05-08 Kenichi OKADA <okada@opaopa.org>

      * wl-xmas.el (wl-plugged-set-folder-icon): Use `elmo-folder-type'
      instead of `elmo-folder-get-type'.

2001-03-27  Kenichi OKADA  <okada@opaopa.org>

      * elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
      hierarchy is t.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 636934e..ef5f815 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -230,6 +230,11 @@
        sb-netbsd.el, sb-sponichi.el, sb-text.el, sb-wired.el,
        sb-xemacs.el, sb-yomiuri.el, sb-zdnet.el: New files.
 
+2001-03-27  Kenichi OKADA  <okada@opaopa.org>
+
+       * elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
+       hierarchy is t.
+
 2001-03-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo.el (elmo-folder-msgdb): Define as macro.

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index a515a51..aa9ed39 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1932,7 +1932,7 @@ Return nil if no complete line has arrived."
                         (mapcar '(lambda (fld)
                                    (unless
                                        (string-match
-                                        (concat "^" (regexp-quote folder))
+                                        (concat "^" (regexp-quote folder) delim)
                                         fld)
                                      fld))
                                 result))))

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fb5a603..0a76bff 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-08  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-xmas.el (wl-plugged-set-folder-icon): Use `elmo-folder-type'
+       instead of `elmo-folder-get-type'.
+
 2001-05-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-summary.el (wl-summary-write-current-folder): Set cursor

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 05adf97..fbacd37 100644 (file)
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -350,7 +350,7 @@
        (put-text-property 0 len 'begin-glyph
                           (get 'wl-folder-queue-glyph 'glyph)
                           string)
-      (if (setq type (elmo-folder-get-type folder))
+      (if (setq type (elmo-folder-type folder))
          (put-text-property 0 len
                             'begin-glyph
                             (get (intern (format "wl-folder-%s-glyph" type))