Mercurial > emacs
changeset 20828:82305d3fbfb1
(mail-extr-all-letters-but-separators)
(mail-extr-first-letters, mail-extr-last-letters):
Make range start from \240, not from \200.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Feb 1998 06:24:20 +0000 |
| parents | 4b85e02aae14 |
| children | f9ac469887a8 |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el Tue Feb 03 06:22:02 1998 +0000 +++ b/lisp/mail/mail-extr.el Tue Feb 03 06:24:20 1998 +0000 @@ -284,7 +284,7 @@ ;; You will also notice the consideration for the ;; Swedish/Finnish/Norwegian character set. (defconst mail-extr-all-letters-but-separators - (purecopy "][A-Za-z{|}'~0-9`\200-\377")) + (purecopy "][A-Za-z{|}'~0-9`\240-\377")) ;; Any character that can occur in a name in an RFC822 address including ;; the separator (hyphen and possibly period) for multipart names. @@ -294,11 +294,11 @@ ;; Any character that can start a name. ;; Keep this set as minimal as possible. -(defconst mail-extr-first-letters (purecopy "A-Za-z\200-\377")) +(defconst mail-extr-first-letters (purecopy "A-Za-z\240-\377")) ;; Any character that can end a name. ;; Keep this set as minimal as possible. -(defconst mail-extr-last-letters (purecopy "A-Za-z\200-\377`'.")) +(defconst mail-extr-last-letters (purecopy "A-Za-z\240-\377`'.")) (defconst mail-extr-leading-garbage (purecopy (format "[^%s]+" mail-extr-first-letters)))