(mail-extract-address-components): Don't downcase

the domain part of the address.

(mail-extract-address-components): Don't downcase
the domain part of the address.
bbcb3f00 · Richard M. Stallman · 01e980fb · bbcb3f00
Commit bbcb3f00 authored Dec 16, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 2 deletions

lisp/mail/mail-extr.el lisp/mail/mail-extr.el +0 -2

No files found.
--- 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