# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1142691115 0
# Node ID b4d58e8579303368cf5826565d81c12ddeef67ad
# Parent  b3cf0d47886dc0725cddfd91c91b60aee283a026
(ispell-skip-region-alist): Add "_+" to the part that matches email addresses,
file names, etc.

diff -r b3cf0d47886d -r b4d58e857930 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Sat Mar 18 14:02:43 2006 +0000
+++ b/lisp/textmodes/ispell.el	Sat Mar 18 14:11:55 2006 +0000
@@ -1325,9 +1325,10 @@
     ("^%!PS-Adobe-[123].0"	 . "\n%%EOF\n")
     ("^---* \\(Start of \\)?[Ff]orwarded [Mm]essage"
      . "^---* End of [Ff]orwarded [Mm]essage")
-    ;; Matches e-mail addresses, file names, http addresses, etc.  The `-+'
-    ;; pattern necessary for performance reasons when `-' part of word syntax.
-    ("\\(--+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)")
+    ;; Matches e-mail addresses, file names, http addresses, etc.  The
+    ;; `-+' `_+' patterns are necessary for performance reasons when
+    ;; `-' or `_' part of word syntax.
+    ("\\(--+\\|_+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)")
     ;; above checks /.\w sequences
     ;;("\\(--+\\|\\(/\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)")
     ;; This is a pretty complex regexp.  It can be simplified to the following: