Mercurial > emacs

changeset 16699:9cfa629723bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-extract-address-components): Don't downcase the domain part of the address.
author Richard M. Stallman <rms@gnu.org>
date Mon, 16 Dec 1996 07:51:24 +0000
parents 13920eac02e0
children 0ecab43a0f69
files lisp/mail/mail-extr.el
diffstat 1 files changed, 0 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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