diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-25 20:21:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-25 20:21:03 +0000 |
| commit | ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34 (patch) | |
| tree | ad8f960ca7c0f537c13462c103287d6211365cbb | |
| parent | 05ef7169a0e61acf5a79dc8da79f742bb048e723 (diff) | |
| download | emacs-ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34.tar.gz | |
(news-post-news): New arg NOQUERY.
| -rw-r--r-- | lisp/mail/rnewspost.el | 8 |
1 files 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 |