# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1179800007 0
# Node ID 6e1a357362af510b6ca039973451b326840aef74
# Parent  a1b4792efa5e5689abe820675f259abdf4e111ee
(mail-extract-address-components): Recognize
non-ASCII characters except for NBSP as words.

diff -r a1b4792efa5e -r 6e1a357362af lisp/mail/mail-extr.el
--- a/lisp/mail/mail-extr.el	Mon May 21 23:05:20 2007 +0000
+++ b/lisp/mail/mail-extr.el	Tue May 22 02:13:27 2007 +0000
@@ -873,7 +873,17 @@
 	      (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 ?,)