# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893917135 0
# Node ID d84de2f4c38d51ca3086378a451fff87b343dc90
# Parent  c0569fcdef889aaccb18492347dc7ca20bef4c81
Require sendmail.
(news-caesar-buffer-body): Use mail-text-start.

diff -r c0569fcdef88 -r d84de2f4c38d lisp/mail/rnews.el
--- a/lisp/mail/rnews.el	Thu Apr 30 06:12:32 1998 +0000
+++ b/lisp/mail/rnews.el	Thu Apr 30 06:18:55 1998 +0000
@@ -54,6 +54,7 @@
 ;;; Code:
 
 (require 'mail-utils)
+(require 'sendmail)
 
 (autoload 'rmail-output "rmailout"
   "Append this message to Unix mail file named FILE-NAME."
@@ -971,15 +972,10 @@
     (let ((buffer-status buffer-read-only))
       (setq buffer-read-only nil)
       ;; setup the region
-      (set-mark (if (progn (goto-char (point-min))
-			    (search-forward
-			     (concat "\n"
-				     (if (equal major-mode 'news-mode)
-					 ""
-				       mail-header-separator)
-				     "\n") nil t))
-		     (point)
-		   (point-min)))
+      (set-mark (if (equal major-mode 'news-mode)
+		    (progn (goto-char (point-min))
+			   (search-forward "\n\n" nil t))
+		  (mail-text-start)))
       (goto-char (point-max))
       (caesar-region rotnum)
       (setq buffer-read-only buffer-status))))