(time-stamp-hhmmss): New function.

2 files changed, 12 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be21078b15d..9c346ac49a8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-12  Simon Josefsson  <jas@extundo.com>
+
+        * mail/smtpmail.el (smtpmail-send-it): Don't use : in filenames
+        (for cygwin). Suggested by Andrew Senior <aws@watson.ibm.com>.
+        Use expand-file-name.  Also don't require time-stamp.
+
 2002-09-11  Richard M. Stallman  <rms@gnu.org>
 
         * derived.el (define-derived-mode): When making new abbrev table,
@@ -42,6 +48,8 @@
 
 2002-09-11  Simon Josefsson  <jas@extundo.com>
 
+        * time-stamp.el (time-stamp-hhmmss): New function.
+
         * gud.el (gud-gdb-massage-args): Don't secretly add -fullname.
         (gud-query-cmdline): Add --fullname to the user cmdline.
 
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index d86dd976572..8f07f714eda 100644
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -731,6 +731,10 @@ The first character of DD is space if the value is less than 10."
   "Return the current time as a string in \"HH:MM:SS\" form."
   (format-time-string "%T"))
 
+(defun time-stamp-hhmmss ()
+  "Return the current time as a string in \"HHMMSS\" form."
+  (format-time-string "%H%M%S"))
+
 (defun time-stamp-hhmm ()
   "Return the current time as a string in \"HHMM\" form."
   (format-time-string "%H%M"))