From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 29 May 1995 07:07:40 +0000 (+0000)
Subject: (mail-extr-all-letters-but-separators): reinstate
X-Git-Tag: emacs-19.34~3873
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa25dbbca65832cb4aa7f031858ea5dc72c255b6;p=emacs.git

(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
---

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)))