# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 854223663 0
# Node ID ada95b0e82aef518168c71811772aa338ab1b235
# Parent  8bdfc6767130ae9579be731c645673331a93854f
(news-post-news): New arg NOQUERY.

diff -r 8bdfc6767130 -r ada95b0e82ae lisp/mail/rnewspost.el
--- a/lisp/mail/rnewspost.el	Sat Jan 25 20:19:30 1997 +0000
+++ b/lisp/mail/rnewspost.el	Sat Jan 25 20:21:03 1997 +0000
@@ -400,11 +400,13 @@
 
 ;@@ the guts of news-reply and news-post-news should be combined. -tower
 ;;;###autoload
-(defun news-post-news ()
+(defun news-post-news (&optional noquery)
   "Begin editing a new USENET news article to be posted.
-Type \\[describe-mode] once editing the article to get a list of commands."
+Type \\[describe-mode] once editing the article to get a list of commands.
+If NOQUERY is non-nil, we do not query before doing the work."
   (interactive)
-  (if (y-or-n-p "Are you sure you want to post to all of USENET? ")
+  (if (or noquery
+	  (y-or-n-p "Are you sure you want to post to all of USENET? "))
       (let ((buffer (current-buffer)))
 	(save-restriction
 	  (and (not (= 0 (buffer-size))) ;@@real problem is non-existence of