mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 10:44:12 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
the domain part of the address.
This commit is contained in:
Richard M. Stallman 1996-12-16 07:51:24 +00:00
parent 01e980fb08
commit bbcb3f00ac
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/mail/mail-extr.el
View file

@ -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