diff options
| author | Richard M. Stallman | 1996-12-16 07:51:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-16 07:51:24 +0000 |
| commit | bbcb3f00ac4dce90a4baf6d44a25b4e1f7574bc4 (patch) | |
| tree | 72423bcf681bd3b5a08728f506745e567b343b7e | |
| parent | 01e980fb08b0c1781e44b85071f609090e11bf20 (diff) | |
| download | emacs-bbcb3f00ac4dce90a4baf6d44a25b4e1f7574bc4.tar.gz emacs-bbcb3f00ac4dce90a4baf6d44a25b4e1f7574bc4.zip | |
(mail-extract-address-components): Don't downcase
the domain part of the address.
| -rw-r--r-- | lisp/mail/mail-extr.el | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 6b0ba81cb9e..85700097f1c 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -1174,8 +1174,6 @@ If ADDRESS contains more than one RFC-822 address, only the first is | |||
| 1174 | (setq %-pos (cdr %-pos)))) | 1174 | (setq %-pos (cdr %-pos)))) |
| 1175 | 1175 | ||
| 1176 | (setq %-pos (nreverse %-pos)) | 1176 | (setq %-pos (nreverse %-pos)) |
| 1177 | ;; RFC 1034 doesn't approve of this, oh well: | ||
| 1178 | (downcase-region (or (car %-pos) @-pos (point-max)) (point-max)) | ||
| 1179 | (cond (%-pos ; implies @-pos valid | 1177 | (cond (%-pos ; implies @-pos valid |
| 1180 | (setq temp %-pos) | 1178 | (setq temp %-pos) |
| 1181 | (catch 'truncated | 1179 | (catch 'truncated |