--- mml.el.~1~	Tue Jan 23 09:12:11 2001
+++ mml.el	Fri Feb  2 13:02:26 2001
@@ -891,6 +891,7 @@
 	  (gnus-article-prepare-display))))
     (fundamental-mode)
     (setq buffer-read-only t)
+    (local-set-key "q" '(lambda () (interactive) (kill-buffer nil)))
     (goto-char (point-min))))
 
 (defun mml-validate ()