diff options
| author | Chong Yidong | 2007-06-04 23:21:07 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-06-04 23:21:07 +0000 |
| commit | 0330231b3c22e3dbb4cea2891cfae6c3156c18cd (patch) | |
| tree | 55e5ee7468ab7c7f1cb998c6d0a88729f6a48941 | |
| parent | 24cbc407de53ec3d29f356a977651d8203b3679e (diff) | |
| download | emacs-0330231b3c22e3dbb4cea2891cfae6c3156c18cd.tar.gz emacs-0330231b3c22e3dbb4cea2891cfae6c3156c18cd.zip | |
(mail-extract-address-components): Recognize non-ASCII characters
except for NBSP as words.
| -rw-r--r-- | lisp/mail/mail-extr.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 9e1b94d8b7a..5029ca23343 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -873,7 +873,17 @@ consing a string.)" | |||
| 873 | (mail-extr-nuke-char-at (point)) | 873 | (mail-extr-nuke-char-at (point)) |
| 874 | (forward-char 1)) | 874 | (forward-char 1)) |
| 875 | (t | 875 | (t |
| 876 | (forward-word 1))) | 876 | ;; Do `(forward-word 1)', recognizing non-ASCII characters |
| 877 | ;; except Latin-1 nbsp as words. | ||
| 878 | (while (progn | ||
| 879 | (skip-chars-forward "^\000-\177 ") | ||
| 880 | (and (not (eobp)) | ||
| 881 | (eq ?w (char-syntax (char-after))) | ||
| 882 | (progn | ||
| 883 | (forward-word 1) | ||
| 884 | (and (not (eobp)) | ||
| 885 | (> (char-after) ?\177) | ||
| 886 | (not (eq (char-after) ? ))))))))) | ||
| 877 | (or (eq char ?\() | 887 | (or (eq char ?\() |
| 878 | ;; At the end of first address of a multiple address header. | 888 | ;; At the end of first address of a multiple address header. |
| 879 | (and (eq char ?,) | 889 | (and (eq char ?,) |