From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Sun, 14 May 2000 18:05:18 +0000 (+0000)
Subject: Support `e' in nndraft:drafts.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=096607c52560748ac5a21bfb98c60b02ce8d971e;p=gnus

Support `e' in nndraft:drafts.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca2f813d5..151bd0c9b 100644
--- 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 8b06100e2..7514f94c9 100644
--- 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 ()