Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 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 | 1b4f02e638b8 |
| children | 54413501e4a9 |
comparison
equal
deleted
inserted
replaced
| 20827:4b85e02aae14 | 20828:82305d3fbfb1 |
|---|---|
| 282 ;; separate parts of a multipart name (hyphen and period). | 282 ;; separate parts of a multipart name (hyphen and period). |
| 283 ;; Yes, there are weird people with digits in their names. | 283 ;; Yes, there are weird people with digits in their names. |
| 284 ;; You will also notice the consideration for the | 284 ;; You will also notice the consideration for the |
| 285 ;; Swedish/Finnish/Norwegian character set. | 285 ;; Swedish/Finnish/Norwegian character set. |
| 286 (defconst mail-extr-all-letters-but-separators | 286 (defconst mail-extr-all-letters-but-separators |
| 287 (purecopy "][A-Za-z{|}'~0-9`\200-\377")) | 287 (purecopy "][A-Za-z{|}'~0-9`\240-\377")) |
| 288 | 288 |
| 289 ;; Any character that can occur in a name in an RFC822 address including | 289 ;; Any character that can occur in a name in an RFC822 address including |
| 290 ;; the separator (hyphen and possibly period) for multipart names. | 290 ;; the separator (hyphen and possibly period) for multipart names. |
| 291 ;; #### should . be in here? | 291 ;; #### should . be in here? |
| 292 (defconst mail-extr-all-letters | 292 (defconst mail-extr-all-letters |
| 293 (purecopy (concat mail-extr-all-letters-but-separators "---"))) | 293 (purecopy (concat mail-extr-all-letters-but-separators "---"))) |
| 294 | 294 |
| 295 ;; Any character that can start a name. | 295 ;; Any character that can start a name. |
| 296 ;; Keep this set as minimal as possible. | 296 ;; Keep this set as minimal as possible. |
| 297 (defconst mail-extr-first-letters (purecopy "A-Za-z\200-\377")) | 297 (defconst mail-extr-first-letters (purecopy "A-Za-z\240-\377")) |
| 298 | 298 |
| 299 ;; Any character that can end a name. | 299 ;; Any character that can end a name. |
| 300 ;; Keep this set as minimal as possible. | 300 ;; Keep this set as minimal as possible. |
| 301 (defconst mail-extr-last-letters (purecopy "A-Za-z\200-\377`'.")) | 301 (defconst mail-extr-last-letters (purecopy "A-Za-z\240-\377`'.")) |
| 302 | 302 |
| 303 (defconst mail-extr-leading-garbage | 303 (defconst mail-extr-leading-garbage |
| 304 (purecopy (format "[^%s]+" mail-extr-first-letters))) | 304 (purecopy (format "[^%s]+" mail-extr-first-letters))) |
| 305 | 305 |
| 306 ;; (defconst mail-extr-non-name-chars | 306 ;; (defconst mail-extr-non-name-chars |