diff options
| author | root <root> | 1990-11-19 01:06:24 +0000 |
|---|---|---|
| committer | root <root> | 1990-11-19 01:06:24 +0000 |
| commit | a06fc01488f83d56a6ef8260bb3efedd479eefac (patch) | |
| tree | 24f15d5d2754ef1345fdd5cd5ecbfbe0007cc44a /lisp/mail | |
| parent | fe52df6d24f53fcf41c3f86446f37b4970530578 (diff) | |
| download | emacs-a06fc01488f83d56a6ef8260bb3efedd479eefac.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rfc822.el | 12 |
1 files changed, 7 insertions, 5 deletions
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" |