From b89e2d3602dec2ae84207685536cb77fd5032ebc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Apr 1998 06:18:55 +0000 Subject: [PATCH] Require sendmail. (news-caesar-buffer-body): Use mail-text-start. --- lisp/mail/rnews.el | 14 +++++--------- 1 file 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)))) -- 2.39.2