diff -urN --exclude=*~ ../gnus-5.8.7/lisp/ChangeLog ./lisp/ChangeLog
--- ../gnus-5.8.7/lisp/ChangeLog	Sat Jul  1 13:10:42 2000
+++ ./lisp/ChangeLog	Thu Nov 23 09:59:07 2000
@@ -1,3 +1,8 @@
+2000-11-22  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+	* nnmh.el (nnmh-request-expire-articles): Implemented
+	expiry-target for nnmh backend.
+
 Sun Jul  2 15:11:35 2000  Lars Magne Ingebrigtsen  <lmi@quimbies.gnus.org>
 
 	* gnus.el: Gnus v5.8.7 is released.
diff -urN --exclude=*~ ../gnus-5.8.7/lisp/nnmh.el ./lisp/nnmh.el
--- ../gnus-5.8.7/lisp/nnmh.el	Sat Jul  1 13:10:51 2000
+++ ./lisp/nnmh.el	Thu Nov 23 09:54:25 2000
@@ -248,10 +248,19 @@
 (deffoo nnmh-request-newgroups (date &optional server)
   (nnmh-request-list server))
 
+;; Urg, there's lots of code duplication and not much doco in backends
+;; group = nnmh:inbox.foo
+;; newsgroup = inbox.foo   == (gnus-group-real-name group)
+;; -- jcn
 (deffoo nnmh-request-expire-articles (articles newsgroup
 					       &optional server force)
   (nnmh-possibly-change-directory newsgroup server)
   (let* ((is-old t)
+	 ;; gnus-group::gnus-group-expire-articles-1 only checks for
+	 ;; nnmail backend
+	 (nnmail-expiry-target
+	   (or (gnus-group-find-parameter group 'expiry-target)
+	       nnmail-expiry-target))
 	 article rest mod-time)
     (nnheader-init-server-buffer)
 
@@ -263,6 +272,13 @@
 		 (setq is-old
 		       (nnmail-expired-article-p newsgroup mod-time force)))
 	    (progn
+	      ;; Allow a special target group. -- jcn
+	      (unless (eq nnmail-expiry-target 'delete)
+		(with-temp-buffer
+		  (nnmh-request-article (car articles)
+					newsgroup server (current-buffer))
+		  (nnmail-expiry-target-group
+		   nnmail-expiry-target group)))
 	      (nnheader-message 5 "Deleting article %s in %s..."
 				article newsgroup)
 	      (condition-case ()