aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/mail-extr.el2
1 files changed, 0 insertions, 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
1174 (setq %-pos (cdr %-pos)))) 1174 (setq %-pos (cdr %-pos))))
1175 1175
1176 (setq %-pos (nreverse %-pos)) 1176 (setq %-pos (nreverse %-pos))
1177 ;; RFC 1034 doesn't approve of this, oh well:
1178 (downcase-region (or (car %-pos) @-pos (point-max)) (point-max))
1179 (cond (%-pos ; implies @-pos valid 1177 (cond (%-pos ; implies @-pos valid
1180 (setq temp %-pos) 1178 (setq temp %-pos)
1181 (catch 'truncated 1179 (catch 'truncated