# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 850722684 0
# Node ID 9cfa629723bfa62d78ba41961fef6bf90dcb7245
# Parent  13920eac02e001debde1425e3b7d65f044f1241e
(mail-extract-address-components): Don't downcase
the domain part of the address.

diff -r 13920eac02e0 -r 9cfa629723bf lisp/mail/mail-extr.el
--- a/lisp/mail/mail-extr.el	Mon Dec 16 07:39:34 1996 +0000
+++ b/lisp/mail/mail-extr.el	Mon Dec 16 07:51:24 1996 +0000
@@ -1174,8 +1174,6 @@
 	     (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