From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/34530
Path: main.gmane.org!not-for-mail
From: Karl Kleinpaste <karl@charcoal.com>
Newsgroups: gmane.emacs.gnus.general
Subject: MML preview should have a "quit" function
Date: 02 Feb 2001 13:04:11 -0500
Sender: owner-ding@hpc.uh.edu
Message-ID: <vxk4ryddkro.fsf@cinnamon.vanillaknot.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: main.gmane.org 1035170440 30894 80.91.224.250 (21 Oct 2002 03:20:40 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 03:20:40 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1])
	by mailhost.sclp.com (Postfix) with ESMTP id BCFDDD049D
	for <jason@mastaler.com>; Fri,  2 Feb 2001 13:06:18 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by karazm.math.uh.edu (8.9.3/8.9.3) with ESMTP id MAC10365;
	Fri, 2 Feb 2001 12:04:47 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 02 Feb 2001 12:03:54 -0600 (CST)
Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged))
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id MAA06716
	for <ding@hpc.uh.edu>; Fri, 2 Feb 2001 12:03:44 -0600 (CST)
Original-Received: from cinnamon.vanillaknot.com (MESQUITE.SLIP.CS.CMU.EDU [128.2.207.11])
	by mailhost.sclp.com (Postfix) with ESMTP id 66B70D049D
	for <ding@gnus.org>; Fri,  2 Feb 2001 13:04:11 -0500 (EST)
Original-Received: (from karl@localhost)
	by cinnamon.vanillaknot.com (8.9.3/8.9.3) id NAA06006;
	Fri, 2 Feb 2001 13:04:11 -0500
Original-To: ding@gnus.org
X-Face: "5(T0tZd{6}pd~YzBG8O/*EW,.]6]@`m^e;fv65W^Y&=d"M\1H}>T~4_.kcDD.O~y3k)a6
	hR;Nmi>9|>Nm${2IpM0^RcUEa\jcq?KOP)C&~x51l~zCHTulL^_T|u0I^kB'z@]{`2YjQu
User-Agent: Gnus/5.090001 (Oort Gnus v0.01) XEmacs/21.2 (Terspichore)
Precedence: list
X-Majordomo: 1.94.jlt7
Original-Lines: 5
Xref: main.gmane.org gmane.emacs.gnus.general:34530
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:34530

--=-=-=

MML preview buffers are in fundamental mode, with neither keybindings
nor menus.  It should understand at least a `q' to quit.


--=-=-=
Content-Type: text/x-patch
Content-Disposition: inline; filename=diff
Content-Description: add `q' keybinding to MML previews

--- 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 ()

--=-=-=--