From 56256363737988a1dd67f7a4f0410663dde2bac5 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 15 Jun 2001 09:03:54 +0000 Subject: [PATCH] * 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 ) --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 2 ++ wl/wl-summary.el | 7 ++++--- 3 files changed, 12 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 57f2974..a0515a0 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,11 @@ 2001-06-15 Yuuichi Teranishi + * 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 ) + * wl-vars.el (wl-folder-process-duplicates-alist): Changed default value to nil (According to the patch from Yoichi NAKAYAMA ). diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 1db38fd..c4223fa 100644 --- 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 --- 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) -- 1.7.10.4