From fd6411ebf1a6cbab760fcf77514fc37e2ba3face Mon Sep 17 00:00:00 2001 From: vitaly Date: Fri, 15 Jan 2010 18:03:55 +0000 Subject: [PATCH] Replace deprecated time-stamp-hh:mm:ss by format-time-string --- elmo/ChangeLog | 4 ++++ elmo/elmo-imap4.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) 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 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 -- 1.7.10.4