Require sendmail.

(news-caesar-buffer-body): Use mail-text-start.

1 files changed, 5 insertions, 9 deletions

diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el
index 7fc67f73984..7688d0f7a7c 100644
--- a/lisp/mail/rnews.el
+++ b/lisp/mail/rnews.el
@@ -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 @@ Mail and USENET news headers are not rotated."
     (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))))