From: keiichi <keiichi>
Date: Wed, 25 Jul 2001 02:11:11 +0000 (+0000)
Subject: (message-make-date): `format-time-string' does not depend `system-time-locale'
X-Git-Tag: nana-gnus-7_1_0_25~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c985ad4e0da11a71926d60fe3026eef47c20840f;p=elisp%2Fgnus.git-

(message-make-date): `format-time-string' does not depend `system-time-locale'
on Eamcs 21.
---

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."