bug#19092: 25.0.50; [PATCH] ispell-message spell checks marked parts of messages

[Matthew Leach <matthew@mattleach.net>]

[-- Attachment #1: Type: text/plain, Size: 852 bytes --]

emacs -Q

C-x m
C-c C-b
some wrong spelllling. <RET>
C-<SPC>
C-p
C-c M-m
M-x ispell-message

you should now be prompted to spell check the word spelllling.  Since
text in the marked parts of messages is usually quoted -- be it text,
code or otherwise -- I propose that we skip spell checking on these
parts of messages.  It can be a real hassle when quoting a large body
of code or text.

Attached is a patch to implement this.  Any comments welcome.

Thanks,
Matt

lisp/ChangeLog:

2014-11-18  Matthew Leach  <matthew@mattleach.net>

	* textmodes/ispell.el (ispell-message): add regexp versions of
	`message-mark-insert-begin' and `message-mark-insert-end' to
	`ispell-skip-region-alist' to skip marked message parts.

etc/ChangeLog:
2014-11-18  Matthew Leach  <matthew@mattleach.net>

	* NEWS: Mention ispell-message now skips marked message parts.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: ispell-skip-maked-message-part.patch --]
[-- Type: text/x-diff, Size: 1637 bytes --]

diff --git a/etc/NEWS b/etc/NEWS
index 05210df..bdad732 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -161,6 +161,9 @@ buffers you want to keep separate.
 *** text/html messages that contain inline image parts will be
 transformed into multipart/related messages before sending.
 
+*** Marked parts of messages (created with C-c M-m) are no longer
+spell checked.
+
 ** pcase
 *** New UPatterns `quote' and `app'.
 *** New UPatterns can be defined with `pcase-defmacro'.
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 0fc6b4a..6d537c2 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -4095,10 +4095,18 @@ You can bind this to the key C-c i in GNUS or mail by adding to
 	      (concat "[^,;&+=\n]+ writes:" "\\|"
 		      (ispell-non-empty-string vm-included-text-prefix)))
 	     (t default-prefix)))
+           (message-mark-insert-begin-regexp
+            (concat "^" (regexp-quote message-mark-insert-begin)))
+           (message-mark-insert-end-regexp
+            (concat "^" (regexp-quote message-mark-insert-end)))
 	   (ispell-skip-region-alist
-	    (cons (list (concat "^\\(" cite-regexp "\\)")
-			(function forward-line))
-		  ispell-skip-region-alist))
+            (append
+             (list
+              (cons message-mark-insert-begin-regexp
+                    message-mark-insert-end-regexp)
+              (list (concat "^\\(" cite-regexp "\\)")
+                    (function forward-line)))
+             ispell-skip-region-alist))
 	   (old-case-fold-search case-fold-search)
 	   (dictionary-alist ispell-message-dictionary-alist)
 	   (ispell-checking-message t))