(message-mimic-kill-buffer): Rewrite.
authoryamaoka <yamaoka>
Wed, 18 Nov 1998 08:15:41 +0000 (08:15 +0000)
committeryamaoka <yamaoka>
Wed, 18 Nov 1998 08:15:41 +0000 (08:15 +0000)
lisp/message.el

index 5c87339..a79778f 100644 (file)
@@ -2174,15 +2174,15 @@ The text will also be indented the normal way."
 (defun message-mimic-kill-buffer ()
   "Kill the current buffer with query."
   (interactive)
-  (if (buffer-modified-p)
-      (message-kill-buffer)
-    (let ((command this-command)
-         (bufname (read-buffer (format "Kill buffer: (default %s) "
-                                       (buffer-name)))))
-      (if (or (not bufname)
-             (string-equal bufname (buffer-name)))
-         (message-kill-buffer)
-       (message "%s must be invoked only for the current buffer." command)))))
+  (unless (eq 'message-mode major-mode)
+    (error "%s must be invoked from a message buffer." this-command))
+  (let ((command this-command)
+       (bufname (read-buffer (format "Kill buffer: (default %s) "
+                                     (buffer-name)))))
+    (if (or (not bufname)
+           (string-equal bufname (buffer-name)))
+       (message-kill-buffer)
+      (message "%s must be invoked only for the current buffer." command))))
 
 (defun message-delete-frame (frame org-frame)
   "Delete frame for editing message."