--- nnmh.el.orig	Wed Nov 22 11:31:40 2000
+++ nnmh.el	Thu Nov 23 09:30:09 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 ()