changeset 16932:ada95b0e82ae

(news-post-news): New arg NOQUERY.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Jan 1997 20:21:03 +0000
parents 8bdfc6767130
children c6d12d67e2b5
files lisp/mail/rnewspost.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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