Mercurial > emacs
changeset 4929:2b5e416494d1
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 Nov 1993 12:47:05 +0000 |
| parents | a53f01945d43 |
| children | 04dee67f86cf |
| files | lisp/textmodes/=ispell4.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/=ispell4.el Mon Nov 08 12:44:18 1993 +0000 +++ b/lisp/textmodes/=ispell4.el Mon Nov 08 12:47:05 1993 +0000 @@ -946,7 +946,9 @@ (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 @@ " *> *")) ((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 @@ (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)