# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 728685641 0
# Node ID 0aa8e261f1745c9a1fe93ade93ac95a278e1c5bb
# Parent  9a1f696c173465d53ef918da855d2e43ef370bec
(mail-do-fcc): Allow dash in timezone name.

diff -r 9a1f696c1734 -r 0aa8e261f174 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Mon Feb 01 22:31:17 1993 +0000
+++ b/lisp/mail/sendmail.el	Tue Feb 02 20:40:41 1993 +0000
@@ -370,7 +370,7 @@
       (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 ]*$")
+        "[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) " "