home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / gnu / emacs / gnus / 1251 < prev    next >
Encoding:
Text File  |  1992-11-08  |  1.6 KB  |  42 lines
  1. Newsgroups: gnu.emacs.gnus
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!att-out!cbnewsh!lzbuoy!billc
  3. From: billc@pegasus.ATT.COM (Bill Carpenter)
  4. Subject: Re: Posting via inews-program
  5. Organization: AT&T Bell Laboratories
  6. Date: Sat, 7 Nov 1992 00:12:38 GMT
  7. Message-ID: <1992Nov7.001238.12353@cbnewsh.cb.att.com>
  8. In-Reply-To: mahue@linguistik.uni-erlangen.de's message of Fri, 6 Nov 1992 15:30:11 GMT
  9. References: <MAHUE.92Nov6163011@uranus.linguistik.uni-erlangen.de>
  10. Sender: news@cbnewsh.cb.att.com (NetNews Administrator)
  11. Nntp-Posting-Host: pegasus
  12. Lines: 28
  13.  
  14. mahue> Because our nntp-news-server only accepts articles posted with
  15. mahue> a special version of the inews-program (our news-admin says it
  16. mahue> has additional security-checks ???) I'd like to tell GNUS to
  17. mahue> pass the article to this program instead of using its own
  18. mahue> nntp-connection.
  19.  
  20. I had to do the same thing once.  Here's what I did by overlaying a
  21. standard GNUS function.
  22.  
  23. (defun nntp-request-post ()
  24.   "Post a new news in current buffer."
  25. ;  (if (nntp-send-command "^[23].*\r$" "POST")
  26. ;      (progn
  27. ;    (nntp-encode-text)
  28. ;    (nntp-send-region-to-server (point-min) (point-max))
  29. ;    ;; 1.2a NNTP's post command is buggy. "^M" (\r) is not
  30. ;    ;;  appended to end of the status message.
  31. ;    (nntp-wait-for-response "^[23].*$")
  32.  
  33.   (shell-command-on-region (point-min) (point-max)
  34.                "rsh xyz.foo.com -l whoever /usr/bin/inews"
  35.                nil 1)
  36.     )
  37.  
  38. -- 
  39.   Bill                      William_J_Carpenter@ATT.COM        or
  40.   (908) 576-2932            attmail!bill   or   att!pegasus!billc
  41.   AT&T Bell Labs / AT&T EasyLink Services               LZ 3C-207
  42.