Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 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 | 24bb9fff22ce |
children | 581f2c0b75f2 |
comparison
equal
deleted
inserted
replaced
4928:a53f01945d43 | 4929:2b5e416494d1 |
---|---|
944 Or you can bind the function to C-c i in gnus or mail with: | 944 Or you can bind the function to C-c i in gnus or mail with: |
945 (setq mail-mode-hook (setq news-reply-mode-hook | 945 (setq mail-mode-hook (setq news-reply-mode-hook |
946 (function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))))" | 946 (function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))))" |
947 (interactive) | 947 (interactive) |
948 (save-excursion | 948 (save-excursion |
949 (let (non-internal-message) | 949 (let (non-internal-message |
950 (old-case-fold-search case-fold-search) | |
951 (case-fold-search nil)) | |
950 (goto-char (point-min)) | 952 (goto-char (point-min)) |
951 ;; Don't spell-check the headers. | 953 ;; Don't spell-check the headers. |
952 (if (search-forward mail-header-separator nil t) | 954 (if (search-forward mail-header-separator nil t) |
953 ;; Move to first body line. | 955 ;; Move to first body line. |
954 (forward-line 1) | 956 (forward-line 1) |
969 (concat "In [a-zA-Z.]+ you write:" "\\|" | 971 (concat "In [a-zA-Z.]+ you write:" "\\|" |
970 "In <[^,;&+=]+> [^,;&+=]+ writes:" "\\|" | 972 "In <[^,;&+=]+> [^,;&+=]+ writes:" "\\|" |
971 " *> *")) | 973 " *> *")) |
972 ((equal major-mode 'news-reply-mode) ;Gnus | 974 ((equal major-mode 'news-reply-mode) ;Gnus |
973 (concat "In article <" "\\|" | 975 (concat "In article <" "\\|" |
974 (ispell-non-empty-string mail-yank-prefix) | 976 (if mail-yank-prefix |
975 )) | 977 (ispell-non-empty-string mail-yank-prefix) |
978 ispell-message-cite-regexp))) | |
976 ((boundp 'vm-included-text-prefix) ; VM mail message | 979 ((boundp 'vm-included-text-prefix) ; VM mail message |
977 (concat "[^,;&+=]+ writes:" "\\|" | 980 (concat "[^,;&+=]+ writes:" "\\|" |
978 (ispell-non-empty-string vm-included-text-prefix) | 981 (ispell-non-empty-string vm-included-text-prefix) |
979 )) | 982 )) |
980 ((boundp 'mh-ins-buf-prefix) ; mh mail message | 983 ((boundp 'mh-ins-buf-prefix) ; mh mail message |
988 ;; Skip across text cited from other messages. | 991 ;; Skip across text cited from other messages. |
989 (while (and (looking-at (concat "^[ \t]*$\\|" cite-regexp)) | 992 (while (and (looking-at (concat "^[ \t]*$\\|" cite-regexp)) |
990 (not (eobp))) | 993 (not (eobp))) |
991 (forward-line 1)) | 994 (forward-line 1)) |
992 (if (not (eobp)) | 995 (if (not (eobp)) |
993 ;; Fill the next batch of lines that *aren't* cited. | 996 ;; Check the next batch of lines that *aren't* cited. |
994 (let ((start (point))) | 997 (let ((start (point))) |
995 (if (re-search-forward | 998 (if (re-search-forward |
996 (concat "^\\(" cite-regexp "\\)") nil 'end) | 999 (concat "^\\(" cite-regexp "\\)") nil 'end) |
997 (beginning-of-line)) | 1000 (beginning-of-line)) |
998 (beginning-of-line) | 1001 (beginning-of-line) |
999 (save-excursion | 1002 (let ((case-fold-search old-case-fold-search)) |
1000 (setq continue (ispell-region (- start 1) (point))))))))))) | 1003 (save-excursion |
1004 (setq continue (ispell-region (- start 1) (point)))))))))))) | |
1001 | 1005 |
1002 (provide 'ispell) | 1006 (provide 'ispell) |
1003 | 1007 |
1004 ;;; ispell.el ends here | 1008 ;;; ispell.el ends here |