--- ispell.el.orig	2006-03-08 10:53:00.000000000 +0100
+++ ispell.el	2006-03-08 15:53:42.000000000 +0100
@@ -1090,6 +1090,7 @@
 		    :help "Spell-check text in marked region"))
       (define-key ispell-menu-map [ispell-message]
 	'(menu-item "Spell-Check Message" ispell-message
+		    :visible (eq major-mode 'mail-mode)
 		    :help "Skip headers and included message text"))
       (define-key ispell-menu-map [ispell-buffer]
 	'(menu-item "Spell-Check Buffer" ispell-buffer