(time-stamp-hhmmss): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be21078b15de9a5e4732bb44c5a03b9fb04a17a2..9c346ac49a8f7e99e49d71063a80d6d97f8e4612 100644 (file)
--- 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 d86dd976572c5d34ed3a972900d75c9d55b1d520..8f07f714edadb462554446701d54173ad8e6e69b 100644 (file)
--- 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"))