From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/75097 Path: news.gmane.org!not-for-mail From: Leo Newsgroups: gmane.emacs.devel,gmane.emacs.gnus.general Subject: Re: Sending patch with Gnus Date: Thu, 16 Dec 2010 13:12:08 +0000 Message-ID: References: <871v5i212s.fsf@tux.homenetwork> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1292505240 29692 80.91.229.12 (16 Dec 2010 13:14:00 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 16 Dec 2010 13:14:00 +0000 (UTC) Cc: ding@gnus.org To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Dec 16 14:13:56 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PTDdr-0006SW-AA for ged-emacs-devel@m.gmane.org; Thu, 16 Dec 2010 14:13:55 +0100 Original-Received: from localhost ([127.0.0.1]:55913 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PTDdY-0005pl-22 for ged-emacs-devel@m.gmane.org; Thu, 16 Dec 2010 08:12:48 -0500 Original-Received: from [140.186.70.92] (port=51138 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PTDdQ-0005mS-JK for emacs-devel@gnu.org; Thu, 16 Dec 2010 08:12:42 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PTDdM-00050c-C7 for emacs-devel@gnu.org; Thu, 16 Dec 2010 08:12:37 -0500 Original-Received: from lo.gmane.org ([80.91.229.12]:48767) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PTDdM-000504-0E for emacs-devel@gnu.org; Thu, 16 Dec 2010 08:12:36 -0500 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1PTDdJ-0006JA-29 for emacs-devel@gnu.org; Thu, 16 Dec 2010 14:12:33 +0100 Original-Received: from cpc1-cmbg13-0-0-cust596.5-4.cable.virginmedia.com ([86.9.122.85]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 16 Dec 2010 14:12:33 +0100 Original-Received: from sdl.web by cpc1-cmbg13-0-0-cust596.5-4.cable.virginmedia.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 16 Dec 2010 14:12:33 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 30 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: cpc1-cmbg13-0-0-cust596.5-4.cable.virginmedia.com Face: iVBORw0KGgoAAAANSUhEUgAAACgAAAAoBAMAAAB+0KVeAAAAG1BMVEUAAAA9Cgm3Hx1WWFWA gn+WmJWsrqv4+vcCAwCRl2MkAAAAAXRSTlMAQObYZgAAAAFiS0dEAIgFHUgAAAAJcEhZcwAAAYoA AAGKATOXMFgAAAAHdElNRQfXAQwDNR+ZJmElAAABIklEQVQoz22SPW+DQAyGWUq65qasd9PNUSX4 AZHK2C1rJy5jpDS4IwRVup9dn7GNafpKIPPgzztXFSujqq1eM2n8h22oMkvxI/i9C97kRfMRUN55 dS3BrsAwBXUtMLAO4lryh8kTjOxKpQNniNxAgZOEe4bZwsDTFhKdqZRLNII4OQNHhEuq/RMkm6Cj TnnEA/fk0BorcYn5qA3oaeAxbaBOLrX+9G48NZ2Fzc2tzDM8Q+tMypEOqYHh8mAWaaK3U/cDMOT5 aMZMABgPXc7zPMs1A8DXO756GFJ/4fMEq47hTsAdn5avoxZ4ywl0c2w4Flu2Ybeyb3S+EqxX2DYA H8veJGEDTnHnrXvRaPyt+2kSfK6rfBZ2tUtfP/mR+pR6sX8BUZ/cDV7tvkoAAAAASUVORK5CYII= User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2.91 (Mac OS X 10.6.5) Cancel-Lock: sha1:E+T1ahHTFcjegJX9Yt5TIMyi2iQ= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:133740 gmane.emacs.gnus.general:75097 Archived-At: On 2010-12-16 13:07 +0000, Leo wrote: > (interactive (if (derived-mode-p 'dired) Sorry for the typo. diff --git a/gitmail.el b/gitmail.el index 71aadee..60551df 100644 --- a/gitmail.el +++ b/gitmail.el @@ -120,7 +120,7 @@ ;;;###autoload (defun gitmail-import-mbox-as-draft (&rest mbox-files) "Import emails in MBOX-FILES into the draft group." - (interactive (if (derived-mode-p 'dired) + (interactive (if (derived-mode-p 'dired-mode) (dired-get-marked-files) (file-expand-wildcards (read-file-name "Find mbox file: ") t))) (assert (gnus-alive-p) nil "Gnus is not running") @@ -131,7 +131,7 @@ ;;;###autoload (defun gitmail-send-mbox (&rest mbox-files) "Send all emails in MBOX-FILES." - (interactive (if (derived-mode-p 'dired) + (interactive (if (derived-mode-p 'dired-mode) (dired-get-marked-files) (file-expand-wildcards (read-file-name "Find mbox file: ") t))) (let (to-address cc-address) -- Oracle is the new evil