*** empty log message ***

[gnus] / lisp / nnml.el

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 5e944f6..bfd5a46 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -325,7 +325,8 @@ all.  This may very well take some time.")
           (and last (nnml-save-nov))))
       (and
        (nnmail-activate 'nnml)
-       (if (not (setq result (nnmail-article-group 'nnml-active-number)))
+       (if (and (not (setq result (nnmail-article-group 'nnml-active-number)))
+               (yes-or-no-p "Moved to `junk' group; delete article? "))
           (setq result 'junk)
         (setq result (car (nnml-save-mail result))))
        (when last