Mercurial > emacs

changeset 21863:d84de2f4c38d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Require sendmail. (news-caesar-buffer-body): Use mail-text-start.
author Richard M. Stallman <rms@gnu.org>
date Thu, 30 Apr 1998 06:18:55 +0000
parents c0569fcdef88
children 191bddd991ef
files lisp/mail/rnews.el
diffstat 1 files changed, 5 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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))))