Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmh.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
272 (and 272 (and
273 (nnmh-deletable-article-p group article) 273 (nnmh-deletable-article-p group article)
274 (nnmh-request-article article group server) 274 (nnmh-request-article article group server)
275 (save-excursion 275 (save-excursion
276 (set-buffer buf) 276 (set-buffer buf)
277 (erase-buffer)
277 (insert-buffer-substring nntp-server-buffer) 278 (insert-buffer-substring nntp-server-buffer)
278 (setq result (eval accept-form)) 279 (setq result (eval accept-form))
279 (kill-buffer (current-buffer)) 280 (kill-buffer (current-buffer))
280 result) 281 result)
281 (progn 282 (progn