diff options
| author | Richard M. Stallman | 1997-01-25 20:21:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-25 20:21:03 +0000 |
| commit | ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34 (patch) | |
| tree | ad8f960ca7c0f537c13462c103287d6211365cbb | |
| parent | 05ef7169a0e61acf5a79dc8da79f742bb048e723 (diff) | |
| download | emacs-ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34.tar.gz emacs-ffb8c7cb58cd967c5b76d625f2ccbc9e9fe75e34.zip | |
(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." | |||
| 400 | 400 | ||
| 401 | ;@@ the guts of news-reply and news-post-news should be combined. -tower | 401 | ;@@ the guts of news-reply and news-post-news should be combined. -tower |
| 402 | ;;;###autoload | 402 | ;;;###autoload |
| 403 | (defun news-post-news () | 403 | (defun news-post-news (&optional noquery) |
| 404 | "Begin editing a new USENET news article to be posted. | 404 | "Begin editing a new USENET news article to be posted. |
| 405 | Type \\[describe-mode] once editing the article to get a list of commands." | 405 | Type \\[describe-mode] once editing the article to get a list of commands. |
| 406 | If NOQUERY is non-nil, we do not query before doing the work." | ||
| 406 | (interactive) | 407 | (interactive) |
| 407 | (if (y-or-n-p "Are you sure you want to post to all of USENET? ") | 408 | (if (or noquery |
| 409 | (y-or-n-p "Are you sure you want to post to all of USENET? ")) | ||
| 408 | (let ((buffer (current-buffer))) | 410 | (let ((buffer (current-buffer))) |
| 409 | (save-restriction | 411 | (save-restriction |
| 410 | (and (not (= 0 (buffer-size))) ;@@real problem is non-existence of | 412 | (and (not (= 0 (buffer-size))) ;@@real problem is non-existence of |