emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Sending patch with Gnus


From: Leo
Subject: Re: Sending patch with Gnus
Date: Thu, 16 Dec 2010 13:12:08 +0000
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2.91 (Mac OS X 10.6.5)

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]