mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(mail-do-fcc): Make a numeric time zone indicator

Browse source 
with current-time-zone--don't run `date'.
This commit is contained in:
Richard M. Stallman 1993-04-17 21:46:13 +00:00
parent 8872923579
commit 5e6cb310a7
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/mail/sendmail.el
View file

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