Require sendmail.

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

diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el
index 7fc67f7398416f685a256f8cc637ab619c670ce2..7688d0f7a7c3b3307ebd23514e739340dc66d2c9 100644 (file)
--- 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))))