Buttons in mml-preview buffer

Buttons in mml-preview buffer

[Reiner Steib]

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/

Re: Buttons in mml-preview buffer

[Kai Großjohann]

Reiner Steib <4.uce.03.r.s@nurfuerspam.de> writes:

> +      (local-set-key [return]

Maybe better "\r" instead of [return].  (Your code might fail to bind
anything on a tty, though XEmacs may grok it.)
-- 
file-error; Data: (Opening input file no such file or directory ~/.signature)

Re: Buttons in mml-preview buffer

[Reiner Steib]

On Wed, Apr 23 2003, Kai Großjohann wrote:

> 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/