Mercurial > emacs
comparison lisp/mail/rnewspost.el @ 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 | 11218164bc54 |
children | 1afd18de6c50 |
comparison
equal
deleted
inserted
replaced
21173:e917eb0d4e01 | 21174:17ad035e0cab |
---|---|
269 (goto-char (point-max)) | 269 (goto-char (point-max)) |
270 ;; require a newline at the end for inews to append .signature to | 270 ;; require a newline at the end for inews to append .signature to |
271 (or (= (preceding-char) ?\n) | 271 (or (= (preceding-char) ?\n) |
272 (insert ?\n)) | 272 (insert ?\n)) |
273 (message "Posting to USENET...") | 273 (message "Posting to USENET...") |
274 (call-process-region (point-min) (point-max) | 274 (unwind-protect |
275 news-inews-program nil 0 nil | 275 (if (not (eq 0 |
276 "-h") ; take all header lines! | 276 (call-process-region (point-min) (point-max) |
277 ;@@ setting of subject and newsgroups still needed? | 277 news-inews-program nil 0 nil |
278 ;"-t" subject | 278 "-h"))) ; take all header lines! |
279 ;"-n" newsgroups | 279 ;@@ setting of subject and newsgroups still needed? |
280 (message "Posting to USENET... done") | 280 ;"-t" subject |
281 (goto-char (point-min)) ;restore internal header separator | 281 ;"-n" newsgroups |
282 (search-forward "\n\n") | 282 (error "Posting to USENET failed") |
283 (replace-match (concat "\n" mail-header-separator "\n")) | 283 (message "Posting to USENET... done")) |
284 (set-buffer-modified-p nil)) | 284 (goto-char (point-min)) ;restore internal header separator |
285 (and (fboundp 'bury-buffer) (bury-buffer)))) | 285 (search-forward "\n\n") |
286 (replace-match (concat "\n" mail-header-separator "\n")) | |
287 (set-buffer-modified-p nil))) | |
288 (bury-buffer))) | |
286 | 289 |
287 ;@@ shares some code with news-reply and news-post-news | 290 ;@@ shares some code with news-reply and news-post-news |
288 (defun news-mail-reply () | 291 (defun news-mail-reply () |
289 "Mail a reply to the author of the current article. | 292 "Mail a reply to the author of the current article. |
290 While composing the reply, use \\[news-reply-yank-original] to yank the | 293 While composing the reply, use \\[news-reply-yank-original] to yank the |