/[emacs]/emacs/lisp/obsolete/rnewspost.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/rnewspost.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pj, Sun Jul 15 16:15:35 2001 UTC revision 1.2.8.1 by miles, Fri Apr 4 06:20:31 2003 UTC
# Line 221  summary (abstract) of the message." Line 221  summary (abstract) of the message."
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))
# Line 250  summary (abstract) of the message." Line 250  summary (abstract) of the message."
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)
# Line 271  summary (abstract) of the message." Line 271  summary (abstract) of the message."
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?

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26