[Emacs-diffs] Changes to emacs/lisp/mail/mail-extr.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   07/05/22 02:13:27

Index: mail-extr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/mail-extr.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- mail-extr.el        21 Jan 2007 02:59:07 -0000      1.52
+++ mail-extr.el        22 May 2007 02:13:27 -0000      1.53
@@ -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 ?,)