From: teranisi <teranisi>
Date: Wed, 26 Dec 2001 15:59:03 +0000 (+0000)
Subject: * NEWS, NEWS.ja: Added description about "$" mark.
X-Git-Tag: wl-2_9_5~54
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=24bfb6f5cbe757f3fd4d7412a0a2dd930fb32b95;p=elisp%2Fwanderlust.git

* 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.
---

diff --git a/ChangeLog b/ChangeLog
index 488dbf3..e5bc9c4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
 2001-12-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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  <teranisi@gohome.org>
+
+	* 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  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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)))))