[Emacs-diffs] Changes to emacs/lisp/gnus/nnmh.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/03/29 19:54:11

Index: lisp/gnus/nnmh.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnmh.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- lisp/gnus/nnmh.el   12 Mar 2008 18:44:07 -0000      1.20
+++ lisp/gnus/nnmh.el   29 Mar 2008 19:54:10 -0000      1.21
@@ -251,7 +251,10 @@
 (deffoo nnmh-request-expire-articles (articles newsgroup
                                               &optional server force)
   (nnmh-possibly-change-directory newsgroup server)
-  (let* ((is-old t)
+  (let ((is-old t)
+       (nnmail-expiry-target
+        (or (gnus-group-find-parameter newsgroup 'expiry-target t)
+            nnmail-expiry-target))
         article rest mod-time)
     (nnheader-init-server-buffer)