all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* smtpmail.el fixes for windows
@ 2002-09-11  5:23 Simon Josefsson
  2002-09-11 20:02 ` Richard Stallman
  0 siblings, 1 reply; 3+ messages in thread
From: Simon Josefsson @ 2002-09-11  5:23 UTC (permalink / raw)


Is it OK to install this?

2002-09-11  Simon Josefsson  <jas@extundo.com>

	* mail/smtpmail.el (smtpmail-send-it): Don't use : in filenames
	(for cygwin). Convert number to string.  Suggested by Andrew
	Senior <aws@watson.ibm.com>.

	* time-stamp.el (time-stamp-hhmmss): New function.

--- smtpmail.el.~1.47.~	2002-09-11 06:50:53.000000000 +0200
+++ smtpmail.el	2002-09-11 07:20:56.000000000 +0200
@@ -346,10 +346,11 @@
 	    (let* ((file-data (concat
 			       smtpmail-queue-dir
 			       (concat (time-stamp-yyyy-mm-dd)
-				       "_" (time-stamp-hh:mm:ss)
+				       "_" (time-stamp-hhmmss)
 				       "_"
+				       (number-to-string
 				       (setq smtpmail-queue-counter
-					     (1+ smtpmail-queue-counter)))))
+					      (1+ smtpmail-queue-counter))))))
 		      (file-elisp (concat file-data ".el"))
 		   (buffer-data (create-file-buffer file-data))
 		   (buffer-elisp (create-file-buffer file-elisp))
--- time-stamp.el.~1.51.~	2002-05-19 01:50:11.000000000 +0200
+++ time-stamp.el	2002-09-11 07:16:35.000000000 +0200
@@ -731,6 +731,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"))

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2002-09-12  6:04 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-09-11  5:23 smtpmail.el fixes for windows Simon Josefsson
2002-09-11 20:02 ` Richard Stallman
2002-09-12  6:04   ` Simon Josefsson

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.