Mercurial > emacs

comparison lisp/mail/rnewspost.el @ 16932:ada95b0e82ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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,