procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(news-post-news): New arg NOQUERY.

Browse source
This commit is contained in:
Richard M. Stallman 1997-01-25 20:21:03 +00:00
parent 05ef7169a0
commit ffb8c7cb58
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/rnewspost.el
View file

@ -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