Re: MIME popup menus

[Michael Welsh Duggan <md5i@cs.cmu.edu>]

Michael Welsh Duggan <md5i@cs.cmu.edu> writes:

> Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:
> 
> > I don't really use menus and mice and stuff, so could someone (else)
> > write `gnus-mime-button-menu' for Emacs 20?  The stub for this
> > function is in gnus-art.el, and the XEmacs implementation is
> > `gnus-xmas-mime-button-menu' in gnus-xmas.el.
> 
> Does the following work?
> 
> (defun gnus-mime-button-menu (event)
>   "Construct a context-sensitive menu of MIME commands."
>   (interactive "e")
>   (let ((reponse (x-popup-menu 
>                   t `("MIME Part" 
>                       ("" ,@(mapcar (lambda (c)
>                                       (cons (caddr c) (car c)))
>                                     gnus-mime-button-commands)))))
>         (pos (event-start event)))
>     (set-buffer (window-buffer (posn-window pos)))
>     (goto-char (posn-point pos))
>     (funcall response)))  

Oops.  I just realized this will fail if you cancel the popup-menu.
You need to check and see if result is nil to use this.

-- 
Michael Duggan
(md5i@cs.cmu.edu)
.