diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-08 12:47:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-08 12:47:05 +0000 |
| commit | 82c5b4be009241b25a17f72b6b61d29f3b521883 (patch) | |
| tree | e1bd5d611c676b538d41455138da083ee849d6a1 | |
| parent | 03b6cf414be66ac85e24054319a2e35ada63104d (diff) | |
| download | emacs-82c5b4be009241b25a17f72b6b61d29f3b521883.tar.gz | |
(ispell-message): If gnus, but no mail-yank-prefix,
use ispell-message-cite-regexp. Turn off case-fold-search
for the searching and matching in this function.
| -rw-r--r-- | lisp/textmodes/ispell4.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index 43eca7d1450..cdde7d94ce3 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el @@ -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) |