mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(mail-extract-address-components): Recognize non-ASCII characters

Browse source 
except for NBSP as words.
This commit is contained in:
Chong Yidong 2007-06-04 23:21:07 +00:00
parent 24cbc407de
commit 0330231b3c
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/mail-extr.el
View file

@ -873,7 +873,17 @@ consing a string.)"
(mail-extr-nuke-char-at (point))
(forward-char 1))
(t
(forward-word 1)))
;; Do `(forward-word 1)', recognizing non-ASCII characters
;; except Latin-1 nbsp as words.
(while (progn
(skip-chars-forward "^\000-\177 ")
(and (not (eobp))
(eq ?w (char-syntax (char-after)))
(progn
(forward-word 1)
(and (not (eobp))
(> (char-after) ?\177)
(not (eq (char-after) ? )))))))))
(or (eq char ?\()
;; At the end of first address of a multiple address header.
(and (eq char ?,)