entered into RCS

38c132a9 · Richard M. Stallman · 0dbe11e2 · 38c132a9
Commit 38c132a9 authored Aug 25, 1992 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/mail/rnewspost.el lisp/mail/rnewspost.el +1 -1

No files found.
--- a/lisp/mail/rnewspost.el
+++ b/lisp/mail/rnewspost.el
@@ -203,7 +203,7 @@ news-reply-mode."
 	      (mail-archive-file-name nil))
 	  (mail-setup to subject in-reply-to nil replybuffer nil)
 	  (beginning-of-line)
-	  (kill-line 1)
+	  (delete-region (point) (progn (forward-line 1) (point)))
 	  (goto-char (point-max)))
      (mail-setup to subject in-reply-to nil replybuffer nil))
    ;;;(mail-position-on-field "Posting-Front-End")