From: okada Date: Tue, 8 May 2001 10:09:34 +0000 (+0000) Subject: 2001-05-08 Kenichi OKADA X-Git-Tag: wl-2_6-root^3~19 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e5ad93e25935c04e90848ed4cdf8eaa2969e631f;p=elisp%2Fwanderlust.git 2001-05-08 Kenichi OKADA * wl-xmas.el (wl-plugged-set-folder-icon): Use `elmo-folder-type' instead of `elmo-folder-get-type'. 2001-03-27 Kenichi OKADA * 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 --- 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 + + * elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when + hierarchy is t. + 2001-03-12 Yuuichi Teranishi * elmo.el (elmo-folder-msgdb): Define as macro. diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index a515a51..aa9ed39 100644 --- 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 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-05-08 Kenichi OKADA + + * wl-xmas.el (wl-plugged-set-folder-icon): Use `elmo-folder-type' + instead of `elmo-folder-get-type'. + 2001-05-01 TAKAHASHI Kaoru * 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 --- 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))