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

[Reiner Steib]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Reiner Steib <rsteib>   08/03/19 21:01:39

Index: nnmh.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/nnmh.el,v
retrieving revision 1.16.2.2
retrieving revision 1.16.2.3
diff -u -b -r1.16.2.2 -r1.16.2.3
--- nnmh.el     7 Jan 2008 01:22:35 -0000       1.16.2.2
+++ nnmh.el     19 Mar 2008 21:01:36 -0000      1.16.2.3
@@ -255,7 +255,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)