Mercurial > hg > xemacs-beta
diff lisp/gnus/nnmh.el @ 24:4103f0995bd7 r19-15b95
Import from CVS: tag r19-15b95
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:51:03 +0200 |
parents | 0293115a14e9 |
children | 441bb1e64a06 |
line wrap: on
line diff
--- a/lisp/gnus/nnmh.el Mon Aug 13 08:50:31 2007 +0200 +++ b/lisp/gnus/nnmh.el Mon Aug 13 08:51:03 2007 +0200 @@ -228,7 +228,8 @@ (deffoo nnmh-request-newgroups (date &optional server) (nnmh-request-list server)) -(deffoo nnmh-request-expire-articles (articles newsgroup &optional server force) +(deffoo nnmh-request-expire-articles (articles newsgroup + &optional server force) (nnmh-possibly-change-directory newsgroup server) (let* ((active-articles (mapcar