Support `e' in nndraft:drafts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca2f813..151bd0c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-14 14:02:12  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-edit-article): Better support for
+       nndraft:drafts.
+
 2000-05-14  Dave Love  <fx@gnu.org>
 
        * nnheader.el: Replace uses of `fset' with `defalias'.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 8b06100..7514f94 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -7762,6 +7762,8 @@ groups."
      ((eq arg 2) (setq raw t
                       force t))
      (t (setq force t)))
+    (if (and raw (not force) (equal gnus-newsgroup-name "nndraft:drafts"))
+       (error "Can't edit the raw article in group nndraft:drafts."))
     (save-excursion
       (set-buffer gnus-summary-buffer)
       (let ((mail-parse-charset gnus-newsgroup-charset)
@@ -7774,6 +7776,8 @@ groups."
        (when (and (not raw) (gnus-buffer-live-p gnus-article-buffer))
          (with-current-buffer gnus-article-buffer
            (mm-enable-multibyte)))
+       (if (equal gnus-newsgroup-name "nndraft:drafts")
+           (setq raw t))
        (gnus-article-edit-article
         (if raw 'ignore 
           #'(lambda ()