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

[ShengHuo ZHU]

Index: emacs/lisp/gnus/nnmh.el
diff -c emacs/lisp/gnus/nnmh.el:1.8 emacs/lisp/gnus/nnmh.el:1.9
*** emacs/lisp/gnus/nnmh.el:1.8 Tue Aug 20 03:57:01 2002
--- emacs/lisp/gnus/nnmh.el     Thu Aug 22 23:32:58 2002
***************
*** 265,270 ****
--- 265,277 ----
                 (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 newsgroup)))
              (nnheader-message 5 "Deleting article %s in %s..."
                                article newsgroup)
              (condition-case ()