diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-02-03 06:24:20 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-02-03 06:24:20 +0000 |
commit | 8aab29007c9c30e11857f263e9ec4af351ce9621 (patch) | |
tree | 8a22db2c4b2f9a553f08407b95444fab7defd20d /lisp | |
parent | 941e80437c6ea507b910af047a5cd6adab3462f2 (diff) | |
download | emacs-8aab29007c9c30e11857f263e9ec4af351ce9621.tar.gz |
(mail-extr-all-letters-but-separators)
(mail-extr-first-letters, mail-extr-last-letters):
Make range start from \240, not from \200.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mail/mail-extr.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index f4e5414adff..5f30245daeb 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -284,7 +284,7 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".") ;; 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 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".") ;; 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))) |