From 5e6cb310a7b0da7f7331aa9c391e1d1e4dafa79b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Apr 1993 21:46:13 +0000 Subject: [PATCH] (mail-do-fcc): Make a numeric time zone indicator with current-time-zone--don't run `date'. --- lisp/mail/sendmail.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 0d2cb929f81..e5a463ba746 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -370,14 +370,15 @@ the user from the mailer." fcc-list)) (delete-region (match-beginning 0) (progn (forward-line 1) (point)))) + (let* ((foo (current-time-zone)) + (offset (+ (car foo) (if (nth 1 foo) 60 0))) + (abs (abs offset))) + (setq timezone (format "%s%02d%02d" + (if (< offset 0) "-" "+") + (/ abs 60) + (% abs 60)))) (set-buffer tembuf) (erase-buffer) - (call-process "date" nil t nil) - (goto-char (point-min)) - (re-search-forward - "[0-9] \\([A-Za-z][-A-Za-z ]*[A-Za-z]\\)[0-9 ]*$") - (setq timezone (buffer-substring (match-beginning 1) (match-end 1))) - (erase-buffer) (insert "\nFrom " (user-login-name) " " (current-time-string) "\n") ;; Insert the time zone before the year.