From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 20 Sep 1993 15:40:38 +0000 (+0000)
Subject: (ispell-message): New command, with menu bar item.
X-Git-Tag: emacs-19.34~11102
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36ab15b2fdab684ac17e5a0d99268b01e7831898;p=emacs.git

(ispell-message): New command, with menu bar item.
---

diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el
index c670aaaafd2..9d37d0a1246 100644
--- a/lisp/textmodes/ispell4.el
+++ b/lisp/textmodes/ispell4.el
@@ -222,6 +222,9 @@ that have not already been dumped will be lost."
 (define-key ispell-menu-map [ispell-next]
   '("Continue Check" . ispell-next))
 
+(define-key ispell-menu-map [ispell-message]
+  '("Check Message" . ispell-message))
+
 (define-key ispell-menu-map [ispell-region]
   '("Check Region" . ispell-region))
 
@@ -604,6 +607,14 @@ L lookup; Q quit\n")
       (kill-emacs 1))
   (write-region (point-min) (point-max) "ispell.info"))
 
+(defun ispell-message ()
+  "Check the spelling for an outgoing mail message."
+  (interactive)
+  (save-excursion
+    (beginning-of-buffer)
+    (search-forward mail-header-separator nil t)
+    (ispell (current-buffer) (point))))
+
 (provide 'ispell)
 
 ;;; ispell.el ends here