From a06fc01488f83d56a6ef8260bb3efedd479eefac Mon Sep 17 00:00:00 2001 From: root Date: Mon, 19 Nov 1990 01:06:24 +0000 Subject: *** empty log message *** --- lisp/mail/rfc822.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'lisp/mail') diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el index f0662c2f6f2..0209b939a5f 100644 --- a/lisp/mail/rfc822.el +++ b/lisp/mail/rfc822.el @@ -1,5 +1,5 @@ ;; Hairy rfc822 parser for mail and news and suchlike -;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. +;; Copyright (C) 1986-1990 Free Software Foundation, Inc. ;; Author Richard Mlynarik. ;; This file is part of GNU Emacs. @@ -239,9 +239,11 @@ ;; an addr-spec, since many broken mailers output ;; "Hern K. Herklemeyer III ;; " - (or (= n 0) - (= (preceding-char) ?\ ) - (insert ?\ )) + (cond ((= n 0)) + ((> n 1) + (rfc822-bad-address "Missing route-spec")) + ((= (preceding-char) ?\ )) + (t (insert ?\ ))) (rfc822-snarf-words) (setq n (1+ n))) ((= n 0) @@ -284,7 +286,7 @@ (catch 'address ; this is for rfc822-bad-address (cond ((rfc822-looking-at ?\,) nil) - ((looking-at "[][\000-\037\177-\377@;:\\.>]") + ((looking-at "[][\000-\037\177-\377@;:\\.>)]") (forward-char) (rfc822-bad-address (format "Strange character \\%c found" -- cgit v1.2.1