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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/10/03 04:18:57

Index: nnml.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnml.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- nnml.el     11 Jun 2008 03:13:09 -0000      1.28
+++ nnml.el     3 Oct 2008 04:18:56 -0000       1.29
@@ -364,11 +364,11 @@
                      nnml-article-file-alist)
                  (when (functionp target)
                    (setq target (funcall target group)))
-                 (if (and target
-                          (or (gnus-request-group target)
-                              (gnus-request-create-group target)))
+                 (when (and target (not (eq target 'delete)))
+                   (if (or (gnus-request-group target)
+                           (gnus-request-create-group target))
                      (nnmail-expiry-target-group target group)
-                   (setq target nil))))
+                     (setq target nil)))))
              ;; Maybe directory is changed during nnmail-expiry-target-group.
              (nnml-possibly-change-directory group server))
            (if target