diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-16 07:51:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-16 07:51:24 +0000 |
| commit | bbcb3f00ac4dce90a4baf6d44a25b4e1f7574bc4 (patch) | |
| tree | 72423bcf681bd3b5a08728f506745e567b343b7e /lisp/mail/mail-extr.el | |
| parent | 01e980fb08b0c1781e44b85071f609090e11bf20 (diff) | |
| download | emacs-bbcb3f00ac4dce90a4baf6d44a25b4e1f7574bc4.tar.gz | |
(mail-extract-address-components): Don't downcase
the domain part of the address.
Diffstat (limited to 'lisp/mail/mail-extr.el')
| -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 (setq %-pos (cdr %-pos)))) (setq %-pos (nreverse %-pos)) - ;; RFC 1034 doesn't approve of this, oh well: - (downcase-region (or (car %-pos) @-pos (point-max)) (point-max)) (cond (%-pos ; implies @-pos valid (setq temp %-pos) (catch 'truncated |