From: yoichi <yoichi>
Date: Tue, 9 Apr 2002 01:44:10 +0000 (+0000)
Subject: * wl-util.el (wl-sendlog-time): Merge into wl-draft-write-sendlog.
X-Git-Tag: elmo-mark-root~213
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=416cca8c8f09274b37aaf4f19303589176a058c9;p=elisp%2Fwanderlust.git

* wl-util.el (wl-sendlog-time): Merge into wl-draft-write-sendlog.
* wl-draft.el (wl-draft-write-sendlog): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ec26a8e..cff6a4f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-09  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-util.el (wl-sendlog-time): Merge into wl-draft-write-sendlog.
+	* wl-draft.el (wl-draft-write-sendlog): Ditto.
+
 2002-04-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-refile-subr): Cause an error if FOLDER
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 03f2bf9..a77261f 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -819,7 +819,7 @@ text was killed."
 				   ","))))
 		   ""))
 	     (id (if id (concat " id=" id) ""))
-	     (time (wl-sendlog-time)))
+	     (time (format-time-string "%Y/%m/%d %T")))
 	(insert (format "%s proto=%s stat=%s%s%s%s\n"
 			time proto status server to id))
 	(if (and wl-draft-sendlog-max-size filesize
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 43e4b4e..0a54b66 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -551,17 +551,6 @@ that `read' can handle, whenever this is possible."
 			 (kill-buffer x)))))
 	     (buffer-list))))
 
-(defun wl-sendlog-time ()
-  (static-if (fboundp 'format-time-string)
-      (format-time-string "%Y/%m/%d %T")
-    (let ((date (current-time-string)))
-      (format "%s/%02d/%02d %s"
-	      (substring date -4)
-	      (cdr (assoc (upcase (substring date 4 7))
-			  timezone-months-assoc))
-	      (string-to-int (substring date 8 10))
-	      (substring date 11 19)))))
-
 (defun wl-collect-summary ()
   (let (result)
     (mapcar