From cf3892be79692523f9acdf7c38518a962c9ff760 Mon Sep 17 00:00:00 2001 From: hayashi Date: Tue, 6 Oct 1998 03:18:04 +0000 Subject: [PATCH] Remove old draft --- lisp/gnus-draft.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 1.7.10.4