Mercurial > emacs
changeset 21174:17ad035e0cab
(news-inews): Signal error if inews fails.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 14 Mar 1998 08:16:52 +0000 |
| parents | e917eb0d4e01 |
| children | e260c4389363 |
| files | lisp/mail/rnewspost.el |
| diffstat | 1 files changed, 15 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rnewspost.el Sat Mar 14 08:15:36 1998 +0000 +++ b/lisp/mail/rnewspost.el Sat Mar 14 08:16:52 1998 +0000 @@ -271,18 +271,21 @@ (or (= (preceding-char) ?\n) (insert ?\n)) (message "Posting to USENET...") - (call-process-region (point-min) (point-max) - news-inews-program nil 0 nil - "-h") ; take all header lines! - ;@@ setting of subject and newsgroups still needed? - ;"-t" subject - ;"-n" newsgroups - (message "Posting to USENET... done") - (goto-char (point-min)) ;restore internal header separator - (search-forward "\n\n") - (replace-match (concat "\n" mail-header-separator "\n")) - (set-buffer-modified-p nil)) - (and (fboundp 'bury-buffer) (bury-buffer)))) + (unwind-protect + (if (not (eq 0 + (call-process-region (point-min) (point-max) + news-inews-program nil 0 nil + "-h"))) ; take all header lines! + ;@@ setting of subject and newsgroups still needed? + ;"-t" subject + ;"-n" newsgroups + (error "Posting to USENET failed") + (message "Posting to USENET... done")) + (goto-char (point-min)) ;restore internal header separator + (search-forward "\n\n") + (replace-match (concat "\n" mail-header-separator "\n")) + (set-buffer-modified-p nil))) + (bury-buffer))) ;@@ shares some code with news-reply and news-post-news (defun news-mail-reply ()