home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / gnu / emacs / gnus / 1390 < prev    next >
Encoding:
Text File  |  1992-12-13  |  1.8 KB  |  59 lines
  1. Newsgroups: gnu.emacs.gnus
  2. Path: sparky!uunet!newsstand.cit.cornell.edu!piccolo.cit.cornell.edu!piccolo.cit.cornell.edu!ns14
  3. From: ns14@crux2.crux2.cit.cornell.edu (Nathan Otto Siemers)
  4. Subject: Re: Read on one NNTP host, post to another
  5. In-Reply-To: ns14@crux2.crux2.cit.cornell.edu's message of 13 Dec 92 00:06:18
  6. Message-ID: <NS14.92Dec13031343@crux2.crux2.cit.cornell.edu>
  7. Sender: news@piccolo.cit.cornell.edu (USENET News System)
  8. Nntp-Posting-Host: crux2.cit.cornell.edu
  9. Organization: Department of Chemistry, Cornell Univ.
  10. References: <CLOOS.92Dec5023816@theory.TC.Cornell.EDU>
  11.     <CLOOS.92Dec12024136@theory.TC.Cornell.EDU>
  12.     <NS14.92Dec12163138@crux2.crux2.cit.cornell.edu>
  13.     <NS14.92Dec12223206@crux3.crux2.cit.cornell.edu>
  14.     <NS14.92Dec13000618@crux2.crux2.cit.cornell.edu>
  15. Distribution: gnu
  16. Date: 13 Dec 92 03:13:43
  17. Lines: 40
  18.  
  19. >>>>> On 13 Dec 92 00:06:18, ns14@crux2.crux2.cit.cornell.edu (Nathan
  20.  DUH> Otto Siemers) said: Nntp-Posting-Host: crux2.cit.cornell.edu
  21.  
  22.  DUH> I'm sorry, but my post is getting garbled.
  23.  
  24.  
  25.  DUH> ; one last try.  if we are lucky, it is only getting garbled on
  26.  DUH> my nntp server.
  27.  
  28. boy, getting recursively lost in my own newsreader...
  29.  
  30. with one slight modification, here is the code.
  31.  
  32. very sorry about the bandwidth.
  33.  
  34. nathan 
  35.  
  36.  
  37. (defun nntp-request-post ()
  38.   "Post a new news in current buffer."
  39. ;  (if (nntp-send-command "^[23].*\r$" "POST")
  40. ;      (progn
  41. ;    (nntp-encode-text)
  42. ;    (nntp-send-region-to-server (point-min) (point-max))
  43. ;    ;; 1.2a NNTP's post command is buggy. "^M" (\r) is not
  44. ;    ;;  appended to end of the status message.
  45. ;    (nntp-wait-for-response "^[23].*$")
  46.  
  47.   (shell-command-on-region (point-min) (point-max)
  48.                " sed  s/piccolo/piccolo/g  | grep -v cHaNgeD | /usr/local/lib/news/inews"
  49.                nil 1)
  50.     )
  51.  
  52.  
  53. ; can you tell what was wrong with my post?
  54. ;    duh
  55. ;    nathan
  56. --
  57. --
  58. /  | / /__|  /  /---/ /__| /  | /    nathan@chemres.tn.cornell.edu
  59.