From c985ad4e0da11a71926d60fe3026eef47c20840f Mon Sep 17 00:00:00 2001 From: keiichi Date: Wed, 25 Jul 2001 02:11:11 +0000 Subject: [PATCH] (message-make-date): `format-time-string' does not depend `system-time-locale' on Eamcs 21. --- lisp/message.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index 244aef0..8858461 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3117,15 +3117,16 @@ If NOW, use that time instead." (when (< zone 0) (setq sign "-") (setq zone (- zone))) - (concat - (format-time-string "%d" now) - ;; The month name of the %b spec is locale-specific. Pfff. - (format " %s " - (capitalize (car (rassoc (nth 4 (decode-time now)) - parse-time-months)))) - (format-time-string "%Y %H:%M:%S " now) - ;; We do all of this because XEmacs doesn't have the %z spec. - (format "%s%02d%02d" sign (/ zone 3600) (/ (% zone 3600) 60))))) + (let ((system-time-locale "C")) + (concat + (format-time-string "%d" now) + ;; The month name of the %b spec is locale-specific. Pfff. + (format " %s " + (capitalize (car (rassoc (nth 4 (decode-time now)) + parse-time-months)))) + (format-time-string "%Y %H:%M:%S " now) + ;; We do all of this because XEmacs doesn't have the %z spec. + (format "%s%02d%02d" sign (/ zone 3600) (/ (% zone 3600) 60)))))) (defun message-make-message-id () "Make a unique Message-ID." -- 1.7.10.4