From: yamaoka <yamaoka>
Date: Wed, 18 Nov 1998 09:24:18 +0000 (+0000)
Subject: (message-mimic-kill-buffer): Support for Emacs 20.x.
X-Git-Tag: gnus-6_8-199811302358~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=73d3f703c7f00f5f930471226ce39f524a93df18;p=elisp%2Fgnus.git-

(message-mimic-kill-buffer): Support for Emacs 20.x.
---

diff --git a/lisp/message.el b/lisp/message.el
index 8e4560c..3562114 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2004,6 +2004,7 @@ The text will also be indented the normal way."
 	(bufname (read-buffer (format "Kill buffer: (default %s) "
 				      (buffer-name)))))
     (if (or (not bufname)
+	    (string-equal bufname "")
 	    (string-equal bufname (buffer-name)))
 	(message-kill-buffer)
       (message "%s must be invoked only for the current buffer." command))))