From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51749 Path: main.gmane.org!not-for-mail From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de> Newsgroups: gmane.emacs.gnus.general Subject: Buttons in mml-preview buffer Date: Tue, 22 Apr 2003 20:52:14 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Sender: ding-owner@lists.math.uh.edu Message-ID: Reply-To: reiner.steib@gmx.de NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1051039794 8671 80.91.224.249 (22 Apr 2003 19:29:54 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 22 Apr 2003 19:29:54 +0000 (UTC) Original-X-From: ding-owner+M292@lists.math.uh.edu Tue Apr 22 21:29:52 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 1983Si-0002Fh-00 for ; Tue, 22 Apr 2003 21:29:52 +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 1983TH-0007LV-00; Tue, 22 Apr 2003 14:30:27 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1983T9-0007LN-00 for ding@lists.math.uh.edu; Tue, 22 Apr 2003 14:30:19 -0500 Original-Received: (qmail 97605 invoked by alias); 22 Apr 2003 19:30:18 -0000 Original-Received: (qmail 97600 invoked from network); 22 Apr 2003 19:30:18 -0000 Original-Received: from main.gmane.org (80.91.224.249) by sclp3.sclp.com with SMTP; 22 Apr 2003 19:30:18 -0000 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1983SB-0002Ch-00 for ; Tue, 22 Apr 2003 21:29:19 +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 1983S9-0002CO-00 for ; Tue, 22 Apr 2003 21:29:17 +0200 Original-Lines: 31 Original-X-Complaints-To: usenet@main.gmane.org X-Face: /U7=m^"/-Dn61mAl{g9e3>\G5Tp,oEX|V)g2I1hBk\ML;)7A?6cmB-y7y?'NA^J<=oz7syB =(McAwIHgLX!.B?R3X}98d@?>CrT094KLWh]WU4gDpnL/")MS(XoQTv`Oq225uL>+;CpPXo$N5e>N> $tPd-gbB^F{gQS#1ase]XO~D4p4M"3+F-7~u]dy3I?Pb8RO*H-EFeWDUf?Rf,d]pv\Jvh2Cht!A=im yKAS2Z%Ao^;}W/qzMvMm Mail-Copies-To: nobody User-Agent: Gnus/5.090019 (Oort Gnus v0.19) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:JfnQZU9G7M8XSBm7gqz9XO86KRU= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:51749 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51749 Hi, I'd like to activate buttons in the mml-preview buffer, i.e. hitting RET or mouse-2 should "Follow the link". I'm not familiar with widget-* functions. Should be done in a different manner? --8<---------------cut here---------------start------------->8--- --- mml.el 12 Apr 2003 21:42:35 -0000 6.72 +++ mml.el 22 Apr 2003 18:53:37 -0000 @@ -1076,6 +1076,14 @@ (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 [return] + (lambda () + (interactive) + (widget-button-press (point)))) + (local-set-key gnus-mouse-2 + (lambda (event) + (interactive "@e") + (widget-button-press (widget-event-point 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/