From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 28 May 1996 15:43:27 +0000 (+0000)
Subject: (gnus-inews-date): Avoid race condition.
X-Git-Tag: emacs-19.34~564
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb052aac91ab6d8aa8677cb890cfae63c627ea84;p=emacs.git

(gnus-inews-date): Avoid race condition.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 6756b9e1c52..099b5e1ebeb 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1383,8 +1383,12 @@ domain is undefined, the domain name is got from it."
 
 (defun gnus-inews-date ()
   "Current time string."
-  (timezone-make-date-arpa-standard 
-   (current-time-string) (current-time-zone)))
+  ;; We call (current-time) once, rather than letting current-time-string and
+  ;; current-time-zone default to it, because that avoids a rare race
+  ;; condition when the time zone changes between those two calls.
+  (let ((now (current-time)))
+    (timezone-make-date-arpa-standard 
+     (current-time-string now) (current-time-zone now))))
 
 (defun gnus-inews-organization ()
   "Return user's organization.