From bbcb3f00ac4dce90a4baf6d44a25b4e1f7574bc4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 16 Dec 1996 07:51:24 +0000 Subject: [PATCH] (mail-extract-address-components): Don't downcase the domain part of the address. --- lisp/mail/mail-extr.el | 2 -- 1 file changed, 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 -- 2.39.5