diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:55:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-28 08:55:00 +0000 |
| commit | 02e8b0d24202a86fca86ee5f1f821a9bb06089a0 (patch) | |
| tree | 4d902d2038df245f1cf21b1c3a2fc51c0c164457 | |
| parent | 1569c5cf4a7d5db83cc9a8be06535b7609f41028 (diff) | |
| download | emacs-02e8b0d24202a86fca86ee5f1f821a9bb06089a0.tar.gz | |
(ispell-message): Support message-mode.
| -rw-r--r-- | lisp/textmodes/ispell.el | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index dfc034b0455..69190348a60 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -130,6 +130,10 @@ ;; ;; HISTORY ;; +;; Revision 2.38 1996/5/30 ethanb@phys.washington.edu +;; Update ispell-message for gnus 5 (news-inews-hook => message-send-hook; +;; different header for quoted message). +;; ;; Revision 2.37 1995/6/13 12:05:28 stevens ;; Removed autoload from ispell-dictionary-alist. *choices* mode-line shows ;; misspelled word. Block skip for pgp & forwarded messages added. @@ -2093,13 +2097,13 @@ Assumed that blocks are not mutually inclusive.") Don't check spelling of message headers except the Subject field. Don't check included messages. -To abort spell checking of a message REGION and send the message anyway, -use the `x' or `q' command. (Any subsequent regions will be checked.) +To abort spell checking of a message region and send the message anyway, +use the `x' command. (Any subsequent regions will be checked.) The `X' command aborts the message send so that you can edit the buffer. To spell-check whenever a message is sent, include the appropriate lines in your .emacs file: - (add-hook 'news-inews-hook 'ispell-message) + (add-hook 'message-send-hook 'ispell-message) (add-hook 'mail-send-hook 'ispell-message) (add-hook 'mh-before-send-letter-hook 'ispell-message) @@ -2131,11 +2135,16 @@ You can bind this to the key C-c i in GNUS or mail by adding to ((featurep 'sc) ; sc 2.3 (concat "\\(" sc-cite-regexp "\\)" "\\|" (ispell-non-empty-string sc-reference-tag-string))) - ((equal major-mode 'news-reply-mode) ;GNUS + ((equal major-mode 'news-reply-mode) ;GNUS 4 & below (concat "In article <" "\\|" (if mail-yank-prefix (ispell-non-empty-string mail-yank-prefix) "^ \\|^\t"))) + ((equal major-mode 'message-mode) ;GNUS 5 + (concat ".*@.* writes:$" "\\|" + (if mail-yank-prefix + (ispell-non-empty-string mail-yank-prefix) + "^ \\|^\t"))) ((equal major-mode 'mh-letter-mode) ; mh mail message (ispell-non-empty-string mh-ins-buf-prefix)) ((not internal-messagep) ; Assume n sent us this message. |