Mercurial > hg > xemacs-beta
diff lisp/gnus/nnmh.el @ 100:4be1180a9e89 r20-1b2
Import from CVS: tag r20-1b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:15:11 +0200 |
parents | 0d2f883870bc |
children | cf808b4c4290 |
line wrap: on
line diff
--- a/lisp/gnus/nnmh.el Mon Aug 13 09:13:58 2007 +0200 +++ b/lisp/gnus/nnmh.el Mon Aug 13 09:15:11 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