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))