From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/83330
Path: news.gmane.org!not-for-mail
From: david.goldberg6@verizon.net (Dave Goldberg)
Newsgroups: gmane.emacs.gnus.general
Subject: Re: gnus-dired-attach, optionally type?
Date: Sun, 16 Jun 2013 00:35:26 -0400
Message-ID: <84txkyllkh.fsf@davestoy.homelinux.org>
References: <878v2cao0f.fsf@gilgamesch.quim.ucm.es> <87ip1gpx1q.fsf@ucl.ac.uk>
	<87ehc49wdd.fsf@mat.ucm.es>
NNTP-Posting-Host: plane.gmane.org
Mime-Version: 1.0
Content-Type: text/plain
X-Trace: ger.gmane.org 1371357473 7152 80.91.229.3 (16 Jun 2013 04:37:53 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Sun, 16 Jun 2013 04:37:53 +0000 (UTC)
To: ding@gnus.org
Original-X-From: ding-owner+M31596@lists.math.uh.edu Sun Jun 16 06:37:50 2013
Return-path: <ding-owner+M31596@lists.math.uh.edu>
Envelope-to: ding-account@gmane.org
Original-Received: from util0.math.uh.edu ([129.7.128.18])
	by plane.gmane.org with esmtp (Exim 4.69)
	(envelope-from <ding-owner+M31596@lists.math.uh.edu>)
	id 1Uo4ir-0000M6-QG
	for ding-account@gmane.org; Sun, 16 Jun 2013 06:37:50 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by util0.math.uh.edu with smtp (Exim 4.63)
	(envelope-from <ding-owner+M31596@lists.math.uh.edu>)
	id 1Uo4h1-00067A-RI; Sat, 15 Jun 2013 23:35:55 -0500
Original-Received: from mx2.math.uh.edu ([129.7.128.33])
	by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256)
	(Exim 4.63)
	(envelope-from <david.goldberg6@verizon.net>)
	id 1Uo4gz-00066t-Vh
	for ding@lists.math.uh.edu; Sat, 15 Jun 2013 23:35:53 -0500
Original-Received: from quimby.gnus.org ([80.91.231.51])
	by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256)
	(Exim 4.76)
	(envelope-from <david.goldberg6@verizon.net>)
	id 1Uo4gy-0004Dn-Kf
	for ding@lists.math.uh.edu; Sat, 15 Jun 2013 23:35:53 -0500
Original-Received: from vms173025pub.verizon.net ([206.46.173.25])
	by quimby.gnus.org with esmtp (Exim 4.72)
	(envelope-from <david.goldberg6@verizon.net>)
	id 1Uo4gx-0006QQ-16
	for ding@gnus.org; Sun, 16 Jun 2013 06:35:51 +0200
Original-Received: from davestoy.homelinux.org.verizon.net ([unknown] [173.48.214.182])
 by vms173025.mailsrvcs.net
 (Sun Java(tm) System Messaging Server 7u2-7.02 32bit (built Apr 16 2009))
 with ESMTPA id <0MOG0051GY336I30@vms173025.mailsrvcs.net> for ding@gnus.org;
 Sat, 15 Jun 2013 23:35:28 -0500 (CDT)
X-Face: W!bie|rYVd43O:2CkHTb*~s5}Yzx30X<@6Tq_bnP56Hp!xX4sVl4tgYRirjRcke\wfY!JJ9
 i?]VIUJicJzq2\!3%7$5R%wi!R[.]Va97q
In-reply-to: <87ehc49wdd.fsf@mat.ucm.es>
 (Uwe Brauer's message of "Sat, 15 Jun	2013 00:10:38 +0200")
User-Agent: Gnus/5.130008 (Ma Gnus v0.8) Emacs/24.1 (gnu/linux)
X-Spam-Score: -0.3 (/)
List-ID: <ding.gnus.org>
Precedence: bulk
Xref: news.gmane.org gmane.emacs.gnus.general:83330
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.general/83330>

> [...]
> Then it works as I expect, however the interactive call of that function
> is too complicated for me, usually I would do a

> (defun my-dired-attach (&optional arg)
>   (interactive "P")
>    (if arg
>    (New code)
>    (old code)))

It looks like you are writing a modified version of gnus-dired-attach, along with the above wrapper.  If that's correct then I think this will work.  I haven't tested with this specific case, but it's worked for others:

(defun my-dired-attach (&optional arg)
  (interactive "P")
  (if arg
      (call-interactively 'modified-gnus-dired-attach)
    (call-interactively 'gnus-dired-attach)))

I think you can do something similar with defadvice but I haven't used that.

-- 
Dave Goldberg
david.goldberg6@verizon.net