mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(ispell-message): Support message-mode.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-06-28 08:55:00 +00:00
parent 327c8eb2f9
commit 6ec7837b2b
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/textmodes/ispell.el
View File

@ -130,6 +130,10 @@
;; ;;
;; HISTORY ;; 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 ;; Revision 2.37 1995/6/13 12:05:28 stevens
;; Removed autoload from ispell-dictionary-alist. *choices* mode-line shows ;; Removed autoload from ispell-dictionary-alist. *choices* mode-line shows
;; misspelled word. Block skip for pgp & forwarded messages added. ;; 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 spelling of message headers except the Subject field.
Don't check included messages. Don't check included messages.
To abort spell checking of a message REGION and send the message anyway, 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.) use the `x' command. (Any subsequent regions will be checked.)
The `X' command aborts the message send so that you can edit the buffer. 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 To spell-check whenever a message is sent, include the appropriate lines
in your .emacs file: 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 'mail-send-hook 'ispell-message)
(add-hook 'mh-before-send-letter-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 ((featurep 'sc) ; sc 2.3
(concat "\\(" sc-cite-regexp "\\)" "\\|" (concat "\\(" sc-cite-regexp "\\)" "\\|"
(ispell-non-empty-string sc-reference-tag-string))) (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 <" "\\|" (concat "In article <" "\\|"
(if mail-yank-prefix (if mail-yank-prefix
(ispell-non-empty-string mail-yank-prefix) (ispell-non-empty-string mail-yank-prefix)
"^ \\|^\t"))) "^ \\|^\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 ((equal major-mode 'mh-letter-mode) ; mh mail message
(ispell-non-empty-string mh-ins-buf-prefix)) (ispell-non-empty-string mh-ins-buf-prefix))
((not internal-messagep) ; Assume n sent us this message. ((not internal-messagep) ; Assume n sent us this message.