Mercurial > emacs
comparison lisp/mail/rnewspost.el @ 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 | aad91ec41fa4 |
children | 11218164bc54 |
comparison
equal
deleted
inserted
replaced
16931:8bdfc6767130 | 16932:ada95b0e82ae |
---|---|
398 (goto-char (point-max)))))) | 398 (goto-char (point-max)))))) |
399 (message ""))) | 399 (message ""))) |
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 (interactive) | 406 If NOQUERY is non-nil, we do not query before doing the work." |
407 (if (y-or-n-p "Are you sure you want to post to all of USENET? ") | 407 (interactive) |
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 |
411 ;@@ of article file | 413 ;@@ of article file |
412 (equal major-mode 'news-mode) ;@@ if rmail-mode, | 414 (equal major-mode 'news-mode) ;@@ if rmail-mode, |