Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndb.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 0d2f883870bc
children b980b6286996
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
177 (nndb-request-expire-articles (list article) 177 (nndb-request-expire-articles (list article)
178 group 178 group
179 server 179 server
180 t)) 180 t))
181 result)) 181 result))
182 182
183 (deffoo nndb-request-accept-article (group server &optional last) 183 (deffoo nndb-request-accept-article (group server &optional last)
184 "The article in the current buffer is put into GROUP." 184 "The article in the current buffer is put into GROUP."
185 (nntp-possibly-change-group group server) ;;- 185 (nntp-possibly-change-group group server) ;;-
186 (let (art statmsg) 186 (let (art statmsg)
187 (when (nntp-send-command "^[23].*\r?\n" "ACCEPT" group) 187 (when (nntp-send-command "^[23].*\r?\n" "ACCEPT" group)
196 (match-end 1))) 196 (match-end 1)))
197 (message "nndb: accepted %s" art) 197 (message "nndb: accepted %s" art)
198 (list art)))) 198 (list art))))
199 199
200 (deffoo nndb-request-replace-article (article group buffer) 200 (deffoo nndb-request-replace-article (article group buffer)
201 "ARTICLE is the number of the article in GROUP to be replaced 201 "ARTICLE is the number of the article in GROUP to be replaced
202 with the contents of the BUFFER." 202 with the contents of the BUFFER."
203 (set-buffer buffer) 203 (set-buffer buffer)
204 (let (art statmsg) 204 (let (art statmsg)
205 (when (nntp-send-command "^[23].*\r?\n" "REPLACE" (int-to-string article)) 205 (when (nntp-send-command "^[23].*\r?\n" "REPLACE" (int-to-string article))
206 (nnheader-insert "") 206 (nnheader-insert "")