* wl-summary.el (wl-summary-delete-cache): Fixed.

* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
Workaround for net folders.
(According to the patch from ABE Yasushi <yasushi@stbbs.net>)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 57f2974..a0515a0 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2001-06-15  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-summary.el (wl-summary-delete-cache): Fixed.
+
+       * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
+       Workaround for net folders.
+       (According to the patch from ABE Yasushi <yasushi@stbbs.net>)
+
        * wl-vars.el (wl-folder-process-duplicates-alist): Changed default
        value to nil (According to the patch from
        Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>).

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 1db38fd..c4223fa 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2112,6 +2112,8 @@ Use `wl-subscribed-mailing-list'."
     (let (key foldername)
       ;; Get foldername and Remove folder type symbol.
       (setq foldername (substring entity 1))
+      (if (string-match "@" foldername)
+         (setq foldername (substring foldername 0 (match-beginning 0))))
       (when (string-match "[^\\./]+$" foldername)
        (setq key (regexp-quote
                   (concat (substring foldername (match-beginning 0)) "@")))

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index c7005d7..ae60505 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1670,9 +1670,10 @@ If ARG is non-nil, checking is omitted."
            (goto-char (match-beginning 2))
            (insert new-mark)
            (elmo-file-cache-delete 
-            (elmo-message-field wl-summary-buffer-elmo-folder
-                                    number
-                                    'message-id))
+            (elmo-file-cache-get-path
+             (elmo-message-field wl-summary-buffer-elmo-folder
+                                 number
+                                 'message-id)))
            (setq mark-alist
                  (elmo-msgdb-mark-set mark-alist number new-mark))
            (elmo-msgdb-set-mark-alist msgdb mark-alist)