# HG changeset patch
# User root <root>
# Date 658976784 0
# Node ID bd2c08be4389d99f6cc4714f8fc14784bf8125f5
# Parent  3a1abaf643c53891b8c6888e19577dc7b5c242a3
*** empty log message ***

diff -r 3a1abaf643c5 -r bd2c08be4389 lisp/mail/rfc822.el
--- a/lisp/mail/rfc822.el	Fri Nov 16 04:29:58 1990 +0000
+++ b/lisp/mail/rfc822.el	Mon Nov 19 01:06:24 1990 +0000
@@ -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
 	       ;;   <yank@megadeath.dod.gods-own-country>"
-	       (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"