From 24bfb6f5cbe757f3fd4d7412a0a2dd930fb32b95 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 26 Dec 2001 15:59:03 +0000 Subject: [PATCH] * NEWS, NEWS.ja: Added description about "$" mark. * elmo-imap4.el (elmo-imap4-message-fetch): Fixed '100%' message. * elmo-pop3.el (elmo-message-fetch-plugged): Ditto. * elmo-util.el (elmo-progress-clear): Ditto. * elmo-date.el (elmo-date-get-datevec): Fix timezone of `DD-Mon-YYYY' type date. --- ChangeLog | 3 ++- NEWS | 4 ++++ NEWS.ja | 6 ++++++ elmo/ChangeLog | 11 +++++++++++ elmo/elmo-date.el | 7 +++---- elmo/elmo-imap4.el | 2 +- elmo/elmo-pop3.el | 3 ++- elmo/elmo-util.el | 4 +++- 8 files changed, 32 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 488dbf3..e5bc9c4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,8 @@ 2001-12-26 Yuuichi Teranishi * NEWS, NEWS.ja: Added description about - `elmo-enable-disconnected-operation'. + `elmo-enable-disconnected-operation'; + Added description about "$" mark. * WL-MK (update-version): New function. diff --git a/NEWS b/NEWS index d5328ec..ee2eb4f 100644 --- a/NEWS +++ b/NEWS @@ -81,6 +81,10 @@ Wanderlust NEWS -- User-visible changes in Wanderlust. When the relevant messages are cached, you can do some operations even in the off-line state. +** Now messages with "$" mark is not remained in the summary buffer when + the actual message itself is deleted. + Please visit the 'mark folder to review the messages with the "$" mark. + * Version 2.6.1 is basically a bug fix version of 2.6.0. ** Fixed a problem that Emacs 21 causes `Recursive load...' error. diff --git a/NEWS.ja b/NEWS.ja index a1e8493..322cc79 100644 --- a/NEWS.ja +++ b/NEWS.ja @@ -82,6 +82,12 @@ Wanderlust NEWS (日本語版) -- User-visible changes in Wanderlust. オフライン状態でもメッセージがキャッシュされていれば、ある程度の メッセージ操作が可能です。 +** "$" マークの付いたメッセージは、元のメッセージが消えていてもサマリには + 残るという仕様は廃止されました。 + "$" マークの付いたメッセージは元のメッセージが消されたとしても 'mark + フォルダに残っていますので、"$" マークの付いたメッセージを見直したい + 場合は 'mark フォルダを参照してください。 + * 2.6.1 は 2.6.0 の修正版です。 ** Emacs 21 で Recursive load... と出る不具合が修正されました。 diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 89b5550..a07a0c7 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,14 @@ +2001-12-26 Yuuichi Teranishi + + * elmo-imap4.el (elmo-imap4-message-fetch): Fixed '100%' message. + + * elmo-pop3.el (elmo-message-fetch-plugged): Ditto. + + * elmo-util.el (elmo-progress-clear): Ditto. + + * elmo-date.el (elmo-date-get-datevec): Fix timezone of + `DD-Mon-YYYY' type date. + 2001-12-26 Hiroya Murata * elmo-util.el (elmo-buffer-field-primitive-condition-match): Use diff --git a/elmo/elmo-date.el b/elmo/elmo-date.el index 7b6a925..8bd1b3b 100644 --- a/elmo/elmo-date.el +++ b/elmo/elmo-date.el @@ -128,8 +128,8 @@ Otherwise treat \\ in NEWTEXT string as special: (error "%s is not supported yet" suffix))))) ((string-match "[0-9]+-[A-Za-z]+-[0-9]+" description) (timezone-fix-time - (concat (elmo-replace-in-string description "-" " ") " 0:00") - nil nil)))) + (concat (elmo-replace-in-string description "-" " ") " 0:0") + (current-time-zone) nil)))) (defun elmo-datevec-substitute (datevec1 datevec2) (if (/= (aref datevec2 2) 0) @@ -157,8 +157,7 @@ Otherwise treat \\ in NEWTEXT string as special: (setq p 1) (while (< p month) (setq days (+ days (timezone-last-day-of-month p year))) - (setq p (+ p 1)) - ) + (setq p (+ p 1))) (setq days (+ days mday)) (aref wday (% days 7)))) diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el index 2e7e1bd..c9ae6e2 100644 --- a/elmo/elmo-imap4.el +++ b/elmo/elmo-imap4.el @@ -2523,7 +2523,7 @@ If optional argument REMOVE is non-nil, remove FLAG." (setq elmo-imap4-display-literal-progress nil)) (unless elmo-inhibit-display-retrieval-progress (elmo-display-progress 'elmo-imap4-display-literal-progress - "" 100) ; remove progress bar. + "Retrieving..." 100) ; remove progress bar. (message "Retrieving...done.")) (if (setq response (elmo-imap4-response-bodydetail-text (elmo-imap4-response-value-all diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index c1e63bd..9c7dc63 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -877,7 +877,8 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"") (setq elmo-pop3-total-size nil)) (unless elmo-inhibit-display-retrieval-progress (elmo-display-progress - 'elmo-display-retrieval-progress "" 100) ; remove progress bar. + 'elmo-display-retrieval-progress + "Retrieving..." 100) ; remove progress bar. (message "Retrieving...done.")) (set-buffer outbuf) (goto-char (point-min)) diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index ed51da6..fe62464 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -1173,7 +1173,9 @@ the value of `foo'." (defun elmo-progress-clear (label) (let ((counter (assq label elmo-progress-counter-alist))) (when counter - (elmo-display-progress label "" 100) + (elmo-display-progress label + (elmo-progress-counter-format counter) + 100) (setq elmo-progress-counter-alist (delq counter elmo-progress-counter-alist))))) -- 1.7.10.4