mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(ispell-message): If gnus, but no mail-yank-prefix,

Browse Source 
use ispell-message-cite-regexp.  Turn off case-fold-search
for the searching and matching in this function.
This commit is contained in:
Richard M. Stallman 1993-11-08 12:47:05 +00:00
parent 03b6cf414b
commit 82c5b4be00
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/textmodes/ispell4.el
View File

@ -946,7 +946,9 @@ Or you can bind the function to C-c i in gnus or mail with:
(function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))))"
(interactive)
(save-excursion
(let (non-internal-message)
(let (non-internal-message
(old-case-fold-search case-fold-search)
(case-fold-search nil))
(goto-char (point-min))
;; Don't spell-check the headers.
(if (search-forward mail-header-separator nil t)
@ -971,8 +973,9 @@ Or you can bind the function to C-c i in gnus or mail with:
" *> *"))
((equal major-mode 'news-reply-mode) ;Gnus
(concat "In article <" "\\|"
(ispell-non-empty-string mail-yank-prefix)
))
(if mail-yank-prefix
(ispell-non-empty-string mail-yank-prefix)
ispell-message-cite-regexp)))
((boundp 'vm-included-text-prefix) ; VM mail message
(concat "[^,;&+=]+ writes:" "\\|"
(ispell-non-empty-string vm-included-text-prefix)
@ -990,14 +993,15 @@ Or you can bind the function to C-c i in gnus or mail with:
(not (eobp)))
(forward-line 1))
(if (not (eobp))
;; Fill the next batch of lines that *aren't* cited.
;; Check the next batch of lines that *aren't* cited.
(let ((start (point)))
(if (re-search-forward
(concat "^\\(" cite-regexp "\\)") nil 'end)
(beginning-of-line))
(beginning-of-line)
(save-excursion
(setq continue (ispell-region (- start 1) (point)))))))))))
(let ((case-fold-search old-case-fold-search))
(save-excursion
(setq continue (ispell-region (- start 1) (point))))))))))))
(provide 'ispell)