From: yamaoka <yamaoka>
Date: Wed, 18 Nov 1998 03:55:30 +0000 (+0000)
Subject: (message-dont-send): Use `message-delete-frame'.
X-Git-Tag: pgnus-ichikawa-199811302358~34
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3db32c62e94a8bc1666110233801a37d7fe9ccb4;p=elisp%2Fgnus.git-

(message-dont-send): Use `message-delete-frame'.
---

diff --git a/lisp/message.el b/lisp/message.el
index 192bce3..9e4f83f 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2148,9 +2148,12 @@ The text will also be indented the normal way."
   "Don't send the message you have been editing."
   (interactive)
   (message-save-drafts)
-  (let ((actions message-postpone-actions))
+  (let ((actions message-postpone-actions)
+	(frame (selected-frame))
+	(org-frame message-original-frame))
     (message-bury (current-buffer))
-    (message-do-actions actions)))
+    (message-do-actions actions)
+    (message-delete-frame frame org-frame)))
 
 (defun message-kill-buffer ()
   "Kill the current buffer."