From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/18196
Path: main.gmane.org!not-for-mail
From: Michael Welsh Duggan <md5i@cs.cmu.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: MIME popup menus
Date: Mon, 26 Oct 1998 17:19:33 GMT
Organization: Carnegie Mellon University : KANTOO Project
Sender: owner-ding@hpc.uh.edu
Message-ID: <v1tyaq31brw.fsf@peoria.mt.cs.cmu.edu>
References: <m3zpalr220.fsf@sparky.gnus.org>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035156763 4908 80.91.224.250 (20 Oct 2002 23:32:43 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 23:32:43 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from fisher.math.uh.edu (fisher.math.uh.edu [129.7.128.35])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id MAA22748
	for <jason@mailhost.sclp.com>; Mon, 26 Oct 1998 12:25:10 -0500 (EST)
Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5])
	by fisher.math.uh.edu (8.9.1/8.9.1) with ESMTP id LAB03125;
	Mon, 26 Oct 1998 11:24:25 -0600 (CST)
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 26 Oct 1998 11:24:10 -0600 (CST)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id LAA24176 for <ding@hpc.uh.edu>; Mon, 26 Oct 1998 11:23:53 -0600 (CST)
Original-Received: from sunsite.auc.dk (sunsite.auc.dk [130.225.51.30])
	by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id MAA22702
	for <ding@gnus.org>; Mon, 26 Oct 1998 12:23:32 -0500 (EST)
Original-Received: (qmail 23147 invoked by uid 509); 26 Oct 1998 17:19:55 -0000
Original-To: ding@gnus.org
Original-Path: not-for-mail
Original-Newsgroups: emacs.ding
Original-Lines: 25
User-Agent: Gnus/5.07004 (Pterodactyl Gnus v0.40) Emacs/20.3
Original-NNTP-Posting-Host: 128.2.110.42
Original-X-Complaints-To: news@sunsite.auc.dk
Original-X-Trace: sunsite.auc.dk 909422373 128.2.110.42 (Mon, 26 Oct 1998 18:19:33 MET DST)
Original-NNTP-Posting-Date: Mon, 26 Oct 1998 18:19:33 MET DST
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:18196
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:18196


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

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