* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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