From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51763 Path: main.gmane.org!not-for-mail From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de> Newsgroups: gmane.emacs.gnus.general Subject: Re: Buttons in mml-preview buffer Date: Wed, 23 Apr 2003 14:59:32 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Sender: ding-owner@lists.math.uh.edu Message-ID: References: <84fzo992ic.fsf@lucy.is.informatik.uni-duisburg.de> Reply-To: reiner.steib@gmx.de NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1051102771 22745 80.91.224.249 (23 Apr 2003 12:59:31 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 23 Apr 2003 12:59:31 +0000 (UTC) Original-X-From: ding-owner+M306@lists.math.uh.edu Wed Apr 23 14:59:28 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 198JqS-0005uc-00 for ; Wed, 23 Apr 2003 14:59:28 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 198Jqq-0003Gm-00; Wed, 23 Apr 2003 07:59:52 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 198Jql-0003Gh-00 for ding@lists.math.uh.edu; Wed, 23 Apr 2003 07:59:48 -0500 Original-Received: (qmail 47799 invoked by alias); 23 Apr 2003 12:59:47 -0000 Original-Received: (qmail 47794 invoked from network); 23 Apr 2003 12:59:47 -0000 Original-Received: from main.gmane.org (80.91.224.249) by sclp3.sclp.com with SMTP; 23 Apr 2003 12:59:47 -0000 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 198Jpn-0005ql-00 for ; Wed, 23 Apr 2003 14:58:47 +0200 Mail-Followup-To: ding@gnus.org X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Received: from news by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 198Jpm-0005qc-00 for ; Wed, 23 Apr 2003 14:58:46 +0200 Original-Lines: 33 Original-X-Complaints-To: usenet@main.gmane.org X-Face: mtjf/D:es1T0wHO:&CJ'ZXe"l;3C--rw\z!{`eFwL){|]RpI+4{u25L=5C /0>KuGeTsk<~<&NE-AKV1560e!+RJeyWmSskkrJm?[vUV#66{T_m|Ae<||Ku#Mk5`y&O`n~z2;n8eP J5#2h@2eQgV@E70IY_0WlEx!"&giy{+\%h1LJox$zv@/l%ZmU4^tZA>xQpnkUBVC5.jpg#0'(+2?Rs )NAr:>3<=WxHE$ktbLysDIM5TbmHu*3 Maybe better "\r" instead of [return]. (Your code might fail to bind > anything on a tty, though XEmacs may grok it.) Thanks, I've committed the following: --8<---------------cut here---------------start------------->8--- --- mml.el 12 Apr 2003 21:42:35 -0000 6.72 +++ mml.el 23 Apr 2003 10:46:23 -0000 @@ -1076,6 +1076,15 @@ (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 () --8<---------------cut here---------------end--------------->8--- Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/