(mml-preview): Bind `=', RET, and mouse-2.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9d00b0..238c786 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-23  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * mml.el (mml-preview): Bind `=', RET, and mouse-2.
+
 2003-04-23  Jesper Harder  <harder@ifa.au.dk>
 
        * mm-bodies.el (mm-decode-body): Don't override supplied charset.

diff --git a/lisp/mml.el b/lisp/mml.el
index 6c0f600..b22ab22 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1076,6 +1076,15 @@ If RAW, don't highlight the article."
                  (mm-destroy-parts gnus-article-mime-handles)) nil t)
       (setq buffer-read-only t)
       (local-set-key "q" (lambda () (interactive) (kill-buffer nil)))
+      (local-set-key "=" (lambda () (interactive) (delete-other-windows)))
+      (local-set-key "\r"
+                    (lambda ()
+                      (interactive)
+                      (widget-button-press (point))))
+      (local-set-key gnus-mouse-2
+                    (lambda (event)
+                      (interactive "@e")
+                      (widget-button-press (widget-event-point event) event)))
       (goto-char (point-min)))))
 
 (defun mml-validate ()