From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jan 1997 20:21:03 +0000 (+0000)
Subject: (news-post-news): New arg NOQUERY.
X-Git-Tag: emacs-20.1~3012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34;p=emacs.git

(news-post-news): New arg NOQUERY.
---

diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el
index 3d6be2505f0..3a261b34ece 100644
--- a/lisp/mail/rnewspost.el
+++ b/lisp/mail/rnewspost.el
@@ -400,11 +400,13 @@ original message into it."
 
 ;@@ 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