Mercurial > emacs

changeset 77894:d3e947ea638f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-extract-address-components): Recognize non-ASCII characters except for NBSP as words.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 04 Jun 2007 23:21:07 +0000
parents 6ac79e15e2cf
children f0333e420b21
files lisp/mail/mail-extr.el
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mail-extr.el	Mon Jun 04 23:20:54 2007 +0000
+++ b/lisp/mail/mail-extr.el	Mon Jun 04 23:21:07 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 ?,)