(nndraft-request-move-article): Bind

nnmh-allow-delete-final to t.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30ba086..a2140e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nndraft.el (nndraft-request-move-article): Bind
+       nnmh-allow-delete-final to t.
+
 2003-02-14  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-uu.el (mm-uu-uu-filename): Fix use of character constant.

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index 85d23f8..2b384b0 100644 (file)
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -196,6 +196,13 @@
                        'nnmh-request-group
                        (list group server dont-check)))
 
+(deffoo nndraft-request-move-article (article group server
+                                             accept-form &optional last)
+  (nndraft-possibly-change-group group)
+  (let ((nnmh-allow-delete-final t))
+    (nnoo-parent-function 'nndraft 'nndraft-request-move-article
+                         (list article group server accept-form last))))
+
 (deffoo nndraft-request-expire-articles (articles group &optional server force)
   (nndraft-possibly-change-group group)
   (let* ((nnmh-allow-delete-final t)
@@ -286,8 +293,7 @@
    nnmh-request-group
    nnmh-close-group
    nnmh-request-list
-   nnmh-request-newsgroups
-   nnmh-request-move-article))
+   nnmh-request-newsgroups))
 
 (provide 'nndraft)