* 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 (file)
--- 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 (file)
--- 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 (file)
--- a/NEWS.ja
+++ b/NEWS.ja
@@ -82,6 +82,12 @@ Wanderlust NEWS (\e$BF|K\8lHG\e(B) -- User-visible changes in Wanderlust.
    \e$B%*%U%i%$%s>uBV$G$b%a%C%;!<%8$,%-%c%C%7%e$5$l$F$$$l$P!"$"$kDxEY$N\e(B
    \e$B%a%C%;!<%8A`:n$,2DG=$G$9!#\e(B
 
+** "$" \e$B%^!<%/$NIU$$$?%a%C%;!<%8$O!"85$N%a%C%;!<%8$,>C$($F$$$F$b%5%^%j$K$O\e(B
+   \e$B;D$k$H$$$&;EMM$OGQ;_$5$l$^$7$?!#\e(B
+   "$" \e$B%^!<%/$NIU$$$?%a%C%;!<%8$O85$N%a%C%;!<%8$,>C$5$l$?$H$7$F$b\e(B 'mark
+   \e$B%U%)%k%@$K;D$C$F$$$^$9$N$G!"\e(B"$" \e$B%^!<%/$NIU$$$?%a%C%;!<%8$r8+D>$7$?$$\e(B
+   \e$B>l9g$O\e(B 'mark \e$B%U%)%k%@$r;2>H$7$F$/$@$5$$!#\e(B
+
 * 2.6.1 \e$B$O\e(B 2.6.0 \e$B$N=$@5HG$G$9!#\e(B
 
 ** Emacs 21 \e$B$G\e(B Recursive load... \e$B$H=P$kIT6q9g$,=$@5$5$l$^$7$?!#\e(B

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 89b5550..a07a0c7 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)))))