diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-01-19 20:28:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-01-19 20:28:03 +0000 |
| commit | 55872f3e06761c4b74773a0dea4775872607bb59 (patch) | |
| tree | ede8833035c8442d626455e12b3be4481d8f82a8 /lisp/mail/rfc822.el | |
| parent | 83a139e3e7c6b0340bd2f6680a5d93df21742fb2 (diff) | |
| download | emacs-55872f3e06761c4b74773a0dea4775872607bb59.tar.gz | |
(rfc822-snarf-word): Don't reject non-ASCII chars.
(rfc822-snarf-subdomain): Likewise.
(rfc822-addresses-1, rfc822-addresses): Likewise.
Diffstat (limited to 'lisp/mail/rfc822.el')
| -rw-r--r-- | lisp/mail/rfc822.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el index 178dd943cb6..39f02b929ac 100644 --- a/lisp/mail/rfc822.el +++ b/lisp/mail/rfc822.el @@ -108,7 +108,7 @@ ;; quoted-string (or (rfc822-looking-at "\"\\([^\"\\\n]\\|\\\\.\\|\\\\\n\\)*\"") (rfc822-bad-address "Unterminated quoted string"))) - ((rfc822-looking-at "[^][\000-\037\177-\377 ()<>@,;:\\\".]+") + ((rfc822-looking-at "[^][\000-\037 ()<>@,;:\\\".]+") ;; atom ) (t @@ -125,7 +125,7 @@ ;; domain-ref (or (rfc822-looking-at "\\[\\([^][\\\n]\\|\\\\.\\|\\\\\n\\)*\\]") (rfc822-bad-address "Unterminated domain literal [...]"))) - ((rfc822-looking-at "[^][\000-\037\177-\377 ()<>@,;:\\\".]+") + ((rfc822-looking-at "[^][\000-\037 ()<>@,;:\\\".]+") ;; domain-literal = atom ) (t @@ -190,7 +190,7 @@ ;; foo bar <foo.bar@baz.zap> ;; "foo bar" <foo.bar@baz.zap> ;; those aren't hacked yet. - (if (and (rfc822-looking-at "[^][\000-\037\177-\377 ()<>@,;:\\\"]+\\(\\|@[^][\000-\037\177-\377 ()<>@,;:\\\"]+\\)" t) + (if (and (rfc822-looking-at "[^][\000-\037 ()<>@,;:\\\"]+\\(\\|@[^][\000-\037 ()<>@,;:\\\"]+\\)" t) (progn (or (eobp) (rfc822-looking-at ?,)))) (progn @@ -244,7 +244,7 @@ (buffer-substring (if strip start (1- start)) (if strip end (1+ end)))) (rfc822-bad-address "Unterminated <...> address"))))) - ((looking-at "[^][\000-\037\177-\377 ()<>@,;:\\.]") + ((looking-at "[^][\000-\037 ()<>@,;:\\.]") ;; this allows "." to be part of the words preceding ;; an addr-spec, since many broken mailers output ;; "Hern K. Herklemeyer III @@ -256,7 +256,7 @@ (rfc822-snarf-words) (setq n (1+ n)) (setq again (or (rfc822-looking-at ?.) - (looking-at "[^][\000-\037\177-\377 ()<>@,;:\\.]")))))) + (looking-at "[^][\000-\037 ()<>@,;:\\.]")))))) ((= n 0) (throw 'address nil)) ((= n 1) ; allow "foo" (losing unix seems to do this) @@ -271,7 +271,7 @@ (defun rfc822-addresses (header-text) - (if (string-match "\\`[ \t]*\\([^][\000-\037\177-\377 ()<>@,;:\\\".]+\\)[ \t]*\\'" + (if (string-match "\\`[ \t]*\\([^][\000-\037 ()<>@,;:\\\".]+\\)[ \t]*\\'" header-text) ;; Make very simple case moderately fast. (list (substring header-text (match-beginning 1) (match-end 1))) @@ -299,7 +299,7 @@ (catch 'address ; this is for rfc822-bad-address (cond ((rfc822-looking-at ?\,) nil) - ((looking-at "[][\000-\037\177-\377@;:\\.>)]") + ((looking-at "[][\000-\037@;:\\.>)]") (forward-char) (rfc822-bad-address (format "Strange character \\%c found" |