comparison lisp/gnus-msg.el @ 15298:7c0be13394a1

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

15297:befefbf0670f

     ".fsf")))


(defun gnus-inews-date ()
  "Current time string."
  (timezone-make-date-arpa-standard 
   (current-time-string) (current-time-zone)))

(defun gnus-inews-organization ()
  "Return user's organization.
The ORGANIZATION environment variable is used if defined.
If not, the variable `gnus-local-organization' is used instead.

15298:7c0be13394a1

     ".fsf")))


(defun gnus-inews-date ()
  "Current time string."
  ;; 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.
The ORGANIZATION environment variable is used if defined.
If not, the variable `gnus-local-organization' is used instead.