Mercurial > emacs
changeset 11985:20bc5df6b938
(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
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 29 May 1995 07:07:40 +0000 |
| parents | 41178eac8f3d |
| children | bfdf35b8c34b |
| files | lisp/mail/mail-extr.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el Mon May 29 07:00:06 1995 +0000 +++ b/lisp/mail/mail-extr.el Mon May 29 07:07:40 1995 +0000 @@ -279,9 +279,8 @@ ;; 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 @@ ;; 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)))