From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 14 Mar 1998 08:16:52 +0000 (+0000)
Subject: (news-inews): Signal error if inews fails.
X-Git-Tag: emacs-20.3~1900
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5cfee3ac9a36df3b974c77ad03710702127d82cf;p=emacs.git

(news-inews): Signal error if inews fails.
---

diff --git a/lisp/mail/rnewspost.el b/lisp/mail/rnewspost.el
index 2c8da70dbcb..cffc2fb03dc 100644
--- a/lisp/mail/rnewspost.el
+++ b/lisp/mail/rnewspost.el
@@ -271,18 +271,21 @@ summary (abstract) of the message."
       (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 ()