221 |
;; Avoid inserting a signature. |
;; Avoid inserting a signature. |
222 |
(mail-signature)) |
(mail-signature)) |
223 |
(if (null to) |
(if (null to) |
224 |
;; this hack is needed so that inews wont be confused by |
;; this hack is needed so that inews wont be confused by |
225 |
;; the fcc: and bcc: fields |
;; the fcc: and bcc: fields |
226 |
(let ((mail-self-blind nil) |
(let ((mail-self-blind nil) |
227 |
(mail-archive-file-name nil)) |
(mail-archive-file-name nil)) |
250 |
(setq paragraph-separate |
(setq paragraph-separate |
251 |
(concat "^" actual-header-separator "$\\|" paragraph-separate))) |
(concat "^" actual-header-separator "$\\|" paragraph-separate))) |
252 |
(run-hooks 'news-setup-hook))) |
(run-hooks 'news-setup-hook))) |
253 |
|
|
254 |
(defun news-inews () |
(defun news-inews () |
255 |
"Send a news message using inews." |
"Send a news message using inews." |
256 |
(interactive) |
(interactive) |
271 |
(insert ?\n)) |
(insert ?\n)) |
272 |
(message "Posting to USENET...") |
(message "Posting to USENET...") |
273 |
(unwind-protect |
(unwind-protect |
274 |
(if (not (eq 0 |
(if (not (eq 0 |
275 |
(call-process-region (point-min) (point-max) |
(call-process-region (point-min) (point-max) |
276 |
news-inews-program nil 0 nil |
news-inews-program nil 0 nil |
277 |
"-h"))) ; take all header lines! |
"-h"))) ; take all header lines! |
278 |
;@@ setting of subject and newsgroups still needed? |
;@@ setting of subject and newsgroups still needed? |