Note that you can use "-" with --output=file in Etags.

[bpt/emacs.git] / lisp / mail / mail-extr.el

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 9e1b94d..209b1de 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -11,7 +11,7 @@
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -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 ?,)