From: yamaoka <yamaoka>
Date: Wed, 18 Nov 1998 09:25:21 +0000 (+0000)
Subject: (message-mimic-kill-buffer): Support for Emacs 20.x.
X-Git-Tag: pgnus-ichikawa-199811302358~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b4eeeda56da1b93be41e60c321e62fdac2bb2484;p=elisp%2Fgnus.git-

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

diff --git a/lisp/message.el b/lisp/message.el
index a79778f..b7a5091 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2180,6 +2180,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))))