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

[Miles Bader]

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

Index: nnfolder.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnfolder.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- nnfolder.el 11 Jun 2008 03:14:05 -0000      1.36
+++ nnfolder.el 3 Oct 2008 04:18:57 -0000       1.37
@@ -472,11 +472,11 @@
                (let ((nnfolder-current-directory nil))
                  (when (functionp target)
                    (setq target (funcall target newsgroup)))
-                 (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 newsgroup)
-                   (setq target nil))))
+                     (setq target nil)))))
              (nnfolder-possibly-change-group newsgroup server))
            (when target
              (nnheader-message 5 "Deleting article %d in %s..."