From: root <root>
Date: Mon, 19 Nov 1990 01:06:24 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15702
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c82d7590c592266adf792d5c55e1109de6334fd4;p=emacs.git

*** empty log message ***
---

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
 	       ;;   <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"