From: hayashi <hayashi>
Date: Tue, 6 Oct 1998 03:18:04 +0000 (+0000)
Subject: Remove old draft
X-Git-Tag: gnus-6_8-199811302358~75
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf3892be79692523f9acdf7c38518a962c9ff760;p=elisp%2Fgnus.git-

Remove old draft
---

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 150f32a..d96fbb6 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -97,7 +97,8 @@
     (gnus-summary-mark-as-read article gnus-canceled-mark)
     (gnus-draft-setup-for-editing article gnus-newsgroup-name)
     (set-buffer-modified-p t)
-    (save-buffer)
+    (let ((gnus-verbose-backends nil))
+      (gnus-request-expire-articles (list article) gnus-newsgroup-name t))
     (push
      `((lambda ()
 	 (when (gnus-buffer-exists-p ,gnus-summary-buffer)
@@ -195,7 +196,6 @@
 ;;;!!!This has been fixed in recent versions of Emacs and XEmacs,
 ;;;!!!but for the time being, we'll just run this tiny function uncompiled.
 
-(progn
 (defun gnus-draft-setup-for-editing (narticle group)
   (gnus-setup-message 'forward
     (let ((article narticle))
@@ -210,7 +210,7 @@
 	(forward-char -1)
 	(insert mail-header-separator)
 	(forward-line 1)
-	(message-set-auto-save-file-name))))))
+	(message-set-auto-save-file-name)))))
 ;;
 (defvar gnus-draft-send-draft-buffer " *send draft*")
 (defun gnus-draft-setup-for-sending (narticle group)