diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-05-29 07:07:40 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-05-29 07:07:40 +0000 |
| commit | fa25dbbca65832cb4aa7f031858ea5dc72c255b6 (patch) | |
| tree | bb2e060cf5b83a3560eb53f5a8ea05d01e884e55 | |
| parent | c8502397cc6a0e0c4a35451a7994c75e726efe60 (diff) | |
| download | emacs-fa25dbbca65832cb4aa7f031858ea5dc72c255b6.tar.gz | |
(mail-extr-all-letters-but-separators): reinstate
\377, the bug in search.c is apparently gone.
(mail-extr-first-letters): add 8-bit characters
(mail-extr-last-letters): ditto
| -rw-r--r-- | lisp/mail/mail-extr.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 2f48df7015a..1d5df8e25ea 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -279,9 +279,8 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".") ;; Yes, there are weird people with digits in their names. ;; You will also notice the consideration for the ;; Swedish/Finnish/Norwegian character set. -;; #### (go to \376 instead of \377 to work around bug in search.c...) (defconst mail-extr-all-letters-but-separators - (purecopy "][A-Za-z{|}'~0-9`\200-\376")) + (purecopy "][A-Za-z{|}'~0-9`\200-\377")) ;; Any character that can occur in a name in an RFC822 address including ;; the separator (hyphen and possibly period) for multipart names. @@ -291,11 +290,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")) +(defconst mail-extr-first-letters (purecopy "A-Za-z\200-\377")) ;; Any character that can end a name. ;; Keep this set as minimal as possible. -(defconst mail-extr-last-letters (purecopy "[A-Za-z`'.")) +(defconst mail-extr-last-letters (purecopy "A-Za-z\200-\377`'.")) (defconst mail-extr-leading-garbage (purecopy (format "[^%s]+" mail-extr-first-letters))) |