Re: writable NNTP server -- getting mail/news

[Kai Grossjohann <grossjohann@charly.informatik.uni-dortmund.de>]

>>>>> Kai Grossjohann writes:

  Kai> Hi there, I'm writing a backend for a `writable NNTP server',
  Kai> ie an NNTP server which also groks a few additional commands
  Kai> for moving message from one group to another, for deleting
  Kai> messages and the like.

I've been hacking a bit.  I've got a problem with implementing the
backend function *-request-accept-article.  It seems that the status
string isn't set correctly: the nntp-status-string variable is ""
rather than containing the right message.  Here's how the server
behaves:

,-----
| [bonny:~]91> telnet bonny 4242	  
| Trying 129.217.20.165...	  
| Connected to bonny.		  
| Escape character is '^]'.	  
| 200 NNML server 1.08 ready - posting allowed
| GROUP mail.misc			  
| 211 1125 13921 15045 mail.misc group selected
| XACCEPT				  
| 340 send article to be posted. End with <CR-LF>.<CR-LF>
| From: kai			  
| Subject: test			  
| Message-id: foo@bar.frob.org	  
| 				    
| test test			  
| .				  
| 287 aricle accepted as 15046 in group mail.misc
| quit				  
| 205 closing connection - goodbye! 
| Connection closed by foreign host.
`-----

My problem was retrieving the "287" message.  Here's what I tried:

,-----
| (deffoo nnmk-request-accept-article (group &optional server last)
|   "Take current buffer and insert it into GROUP."
|   (nntp-possibly-change-group group server)
|   (let ((resart))
|     (when (nntp-send-command "^[23].*\r?\n" "XACCEPT")
| 	(nntp-send-buffer
| 	 "^\\(287 ar.*icle accepted as \\([0-9]*\\) .*\\)\r?\n\\|[23].*\n")
| 	(setq resart 
| 	      (substring nnmk-status-string ; (nnheader-get-report 'nnmk)
| 			 (match-beginning 1) (match-end 1))))
|     resart))
`-----

But neither nntp-status-string nor nnmk-status-string nor
(nnheader-get-report 'nntp) nor (nnheader-get-report 'nnmk) returned
anything useful.  The best I got was "".  What did I do wrong?

The following hack works, but it's /ugly/ :-(

,-----
| (deffoo nnmk-request-accept-article (group &optional server last)
|   "Take current buffer and insert it into GROUP."
|   (nntp-possibly-change-group group server)
|   (let ((resart))
|     (when (nntp-send-command "^340 .*\r?\n" "XACCEPT")
| 	(save-excursion (set-buffer nntp-server-buffer)
| 			(erase-buffer))
| 	(nntp-send-buffer
| 	 "^287 \\(.*\\)")
| 	(save-excursion 
| 	  (set-buffer nntp-server-buffer)
| 	  (beginning-of-buffer)
| 	  (if (re-search-forward
| 	       "^287 .*art?icle accepted as \\([0-9]*\\) .*")
| 	      (setq resart 
| 		    (buffer-substring (match-beginning 1)
| 				      (match-end 1)))))
| 	resart)))
`-----

There's got to be a better way, no?  Prolly only shows that I don't
grok nntp-send-buffer.

tia,
kai
-- 
Life is hard and then you die.