* nndraft.el (nndraft-request-accept-article): Error if the group

	is drafts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68f99a3..5208327 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-03-06  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * nndraft.el (nndraft-request-accept-article): Error if the group
+       is drafts.
+
        * message.el (message-add-action): Use add-to-list.
        (message-delete-action): New function.
 

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index 0820b34..901489a 100644 (file)
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -212,6 +212,8 @@
 
 (deffoo nndraft-request-accept-article (group &optional server last noinsert)
   (nndraft-possibly-change-group group)
+  (if (equal group "drafts")
+      (error "nndraft:drafts isn't supposed to accept articles."))
   (let ((gnus-verbose-backends nil))
     (nnoo-parent-function 'nndraft 'nnmh-request-accept-article
                          (list group server last noinsert))))