* admin/admin.el (add-release-logs): Use UTC for release date.

2 files changed, 8 insertions, 2 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 2d09a749907..a12e6c05e64 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2013-03-10  Glenn Morris  <rgm@gnu.org>
+
+        * admin.el (add-release-logs): Use UTC for release date.
+
 2013-03-09  Glenn Morris  <rgm@gnu.org>
 
         * admin.el (add-release-logs): Provide interactive defaults.
diff --git a/admin/admin.el b/admin/admin.el
index fd9bde29f46..fc793c17bd2 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -42,12 +42,14 @@ Optional argument DATE is the release date, default today."
                                           emacs-minor-version))
                      (read-string "Release date: "
                                   (progn (require 'add-log)
-                                         (funcall add-log-time-format)))))
+                                         (let ((add-log-time-zone-rule t))
+                                           (funcall add-log-time-format))))))
   (setq root (expand-file-name root))
   (unless (file-exists-p (expand-file-name "src/emacs.c" root))
     (error "%s doesn't seem to be the root of an Emacs source tree" root))
   (require 'add-log)
-  (or date (setq date (funcall add-log-time-format)))
+  (or date (setq date (let ((add-log-time-zone-rule t))
+                        (funcall add-log-time-format))))
   (let* ((logs (process-lines "find" root "-name" "ChangeLog"))
          (entry (format "%s  %s  <%s>\n\n\t* Version %s released.\n\n"
                         date