From: teranisi Date: Fri, 15 Jun 2001 09:03:54 +0000 (+0000) Subject: * wl-summary.el (wl-summary-delete-cache): Fixed. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Felmo-lunafy;p=elisp%2Fwanderlust.git * 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 ) --- 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)