From: vitaly <vitaly>
Date: Fri, 15 Jan 2010 18:03:55 +0000 (+0000)
Subject: Replace deprecated time-stamp-hh:mm:ss by format-time-string
X-Git-Tag: elmo-imap4-compliance-root~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fd6411ebf1a6cbab760fcf77514fc37e2ba3face;p=elisp%2Fwanderlust.git

Replace deprecated time-stamp-hh:mm:ss by format-time-string
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 374ff79..8f40169 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -14,6 +14,10 @@
 	elmo-imap4-folder-list-range, elmo-folder-open): Don't ask server
 	for full uid range on folder entering, retrieve updates only for
 	newly appeared messages.
+	* elmo-imap4.el (elmo-imap4-send-command, elmo-imap4-send-string,
+	elmo-imap4-read-response, elmo-imap4-read-untagged,
+	elmo-imap4-parse-response): Change deprecated time-stamp-hh:mm:ss
+	to format-time-string.
 
 2010-01-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 3b94ad7..2853370 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -357,7 +357,7 @@ Returns a TAG string which is assigned to the COMMAND."
 	      (t
 	       (error "Invalid argument")))
 	(setq command-args (cdr command-args)))
-      (elmo-imap4-debug "[%s] <- %s" (time-stamp-hh:mm:ss) cmdstr)
+      (elmo-imap4-debug "[%s] <- %s" (format-time-string "%T") cmdstr)
       (process-send-string process (concat cmdstr "\r\n"))
       tag)))
 
@@ -367,7 +367,7 @@ Returns a TAG string which is assigned to the COMMAND."
 			(elmo-network-session-process-internal session))
     (setq elmo-imap4-current-response nil)
     (goto-char (point-min))
-    (elmo-imap4-debug "[%s] <-- %s" (time-stamp-hh:mm:ss) string)
+    (elmo-imap4-debug "[%s] <-- %s" (format-time-string "%T") string)
     (process-send-string (elmo-network-session-process-internal session)
 			 string)
     (process-send-string (elmo-network-session-process-internal session)
@@ -392,7 +392,7 @@ TAG is the tag of the command"
 		  '(open run))
 	(accept-process-output (elmo-network-session-process-internal session)
 			       1)))
-    (elmo-imap4-debug "[%s] =>%s" (time-stamp-hh:mm:ss) (prin1-to-string elmo-imap4-current-response))
+    (elmo-imap4-debug "[%s] => %s" (format-time-string "%T") (prin1-to-string elmo-imap4-current-response))
     (setq elmo-imap4-parsing nil)
     elmo-imap4-current-response))
 
@@ -400,7 +400,7 @@ TAG is the tag of the command"
   (with-current-buffer (process-buffer process)
     (while (not elmo-imap4-current-response)
       (accept-process-output process 1))
-    (elmo-imap4-debug "[%s] =>%s" (time-stamp-hh:mm:ss) (prin1-to-string elmo-imap4-current-response))
+    (elmo-imap4-debug "[%s] =>%s" (format-time-string "%T") (prin1-to-string elmo-imap4-current-response))
     elmo-imap4-current-response))
 
 (defun elmo-imap4-read-continue-req (session)
@@ -1415,7 +1415,7 @@ Return nil if no complete line has arrived."
 
 (defun elmo-imap4-parse-response ()
   "Parse a IMAP command response."
-  (elmo-imap4-debug "[%s] -> %s" (time-stamp-hh:mm:ss) (buffer-substring (point) (point-max)))
+  (elmo-imap4-debug "[%s] -> %s" (format-time-string "%T") (buffer-substring (point) (point-max)))
   (let (token)
     (case (setq token (read (current-buffer)))
       (+ (progn