Mercurial > hg > xemacs-beta

comparison lisp/gnus/nndb.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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 "")