diff options
| -rw-r--r-- | lisp/mail/mail-extr.el | 2 |
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 |