From ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jan 1997 20:21:03 +0000 Subject: [PATCH] (news-post-news): New arg NOQUERY. --- lisp/mail/rnewspost.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.39.2