mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
root 1990-11-26 22:52:07 +00:00
parent 67ea382e54
commit 278fc73282
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/mail/rfc822.el
View File

@ -239,19 +239,22 @@
;; an addr-spec, since many broken mailers output
;; "Hern K. Herklemeyer III
;; <yank@megadeath.dod.gods-own-country>"
(cond ((= n 0))
((> n 1)
(rfc822-bad-address "Missing route-spec"))
((= (preceding-char) ?\ ))
(t (insert ?\ )))
(rfc822-snarf-words)
(setq n (1+ n)))
(let ((again t))
(while again
(or (= n 0) (bobp) (= (preceding-char) ?\ )
(insert ?\ ))
(rfc822-snarf-word)
(setq n (1+ n))
(setq again (or (rfc822-looking-at ?.)
(looking-at "[^][\000-\037\177-\377 ()<>@,;:\\.]"))))))
((= n 0)
(throw 'address nil))
((= n 1) ; allow "foo" (losing unix seems to do this)
(throw 'address
(buffer-substring address-start (point))))
((or (eobp) (looking-at ","))
((> n 1)
(rfc822-bad-address "Missing comma between addresses or badly-formatted address"))
((or (eobp) (= (following-char) ?,))
(rfc822-bad-address "Missing comma or route-spec"))
(t
(rfc822-bad-address "Strange character or missing comma")))))))