# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752762825 0
# Node ID 2b5e416494d187259820f5fe17874330b7974144
# Parent  a53f01945d43b5941bf1c747ecec5c06123c5727
(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.

diff -r a53f01945d43 -r 2b5e416494d1 lisp/textmodes/=ispell4.el
--- a/lisp/textmodes/=ispell4.el	Mon Nov 08 12:44:18 1993 +0000
+++ b/lisp/textmodes/=ispell4.el	Mon Nov 08 12:47:05 1993 +0000
@@ -946,7 +946,9 @@
     (function (lambda () (local-set-key \"\\C-ci\" 'ispell-message)))))"
   (interactive)
   (save-excursion
-    (let (non-internal-message)
+    (let (non-internal-message
+	  (old-case-fold-search case-fold-search)
+	  (case-fold-search nil))
       (goto-char (point-min))
       ;; Don't spell-check the headers.
       (if (search-forward mail-header-separator nil t)
@@ -971,8 +973,9 @@
 		       " *> *"))
 	      ((equal major-mode 'news-reply-mode) ;Gnus
 	       (concat "In article <" "\\|"
-		       (ispell-non-empty-string mail-yank-prefix)
-		       ))
+		       (if mail-yank-prefix
+			   (ispell-non-empty-string mail-yank-prefix)
+			 ispell-message-cite-regexp)))
 	      ((boundp 'vm-included-text-prefix) ; VM mail message
 	       (concat "[^,;&+=]+ writes:" "\\|"
 		       (ispell-non-empty-string vm-included-text-prefix)
@@ -990,14 +993,15 @@
 		      (not (eobp)))
 	    (forward-line 1))
 	  (if (not (eobp))
-	      ;; Fill the next batch of lines that *aren't* cited.
+	      ;; Check the next batch of lines that *aren't* cited.
 	      (let ((start (point)))
 	       (if (re-search-forward
 		    (concat "^\\(" cite-regexp "\\)") nil 'end)
 		   (beginning-of-line))
 		(beginning-of-line)
-		(save-excursion
-		  (setq continue (ispell-region (- start 1) (point)))))))))))
+		(let ((case-fold-search old-case-fold-search))
+		  (save-excursion
+		    (setq continue (ispell-region (- start 1) (point))))))))))))
 
 (provide 'ispell)