From 416cca8c8f09274b37aaf4f19303589176a058c9 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 9 Apr 2002 01:44:10 +0000 Subject: [PATCH] * wl-util.el (wl-sendlog-time): Merge into wl-draft-write-sendlog. * wl-draft.el (wl-draft-write-sendlog): Ditto. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 2 +- wl/wl-util.el | 11 ----------- 3 files changed, 6 insertions(+), 12 deletions(-) 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 + + * 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 * 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 -- 1.7.10.4