diff options
| author | Richard M. Stallman | 1993-02-02 20:40:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-02-02 20:40:41 +0000 |
| commit | a59de7ab62c0ec2915ad3e6cb19ead2016ad0dab (patch) | |
| tree | 417aec2632f657689c3da326f207f9d950642368 | |
| parent | 2aa7a8bfe569d2e0fe9bc7c36378cc9abcf6575d (diff) | |
| download | emacs-a59de7ab62c0ec2915ad3e6cb19ead2016ad0dab.tar.gz emacs-a59de7ab62c0ec2915ad3e6cb19ead2016ad0dab.zip | |
(mail-do-fcc): Allow dash in timezone name.
| -rw-r--r-- | lisp/mail/sendmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 1de964cb349..d97eaa0946d 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -370,7 +370,7 @@ the user from the mailer." | |||
| 370 | (call-process "date" nil t nil) | 370 | (call-process "date" nil t nil) |
| 371 | (goto-char (point-min)) | 371 | (goto-char (point-min)) |
| 372 | (re-search-forward | 372 | (re-search-forward |
| 373 | "[0-9] \\([A-Za-z][A-Za-z ]*[A-Za-z]\\)[0-9 ]*$") | 373 | "[0-9] \\([A-Za-z][-A-Za-z ]*[A-Za-z]\\)[0-9 ]*$") |
| 374 | (setq timezone (buffer-substring (match-beginning 1) (match-end 1))) | 374 | (setq timezone (buffer-substring (match-beginning 1) (match-end 1))) |
| 375 | (erase-buffer) | 375 | (erase-buffer) |
| 376 | (insert "\nFrom " (user-login-name) " " | 376 | (insert "\nFrom " (user-login-name) " " |