From: fredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Date: Mon, 29 May 2006 19:55:00 +0000 (+0000)
Subject: Check for -E...
X-Git-Tag: 0.1~20
X-Git-Url: http://git.dolda2000.com/gitweb/?p=doldaconnect.git;a=commitdiff_plain;h=a8e6bb8183d91e91e4244d55cc24829db4ce307d

Check for -E...


git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@626 959494ce-11ee-0310-bf91-de5d638817bd
---

diff --git a/lib/guile/autodl b/lib/guile/autodl
index 32eb92d..af98f9e 100755
--- a/lib/guile/autodl
+++ b/lib/guile/autodl
@@ -381,7 +381,7 @@
 
 (define (autodl-main args)
   (let ((dc-server #f) (done #f) (retval 0) (filterexit ""))
-    (let ((getopt (make-getopt (cdr args) "whs:S:e:p:t:a:I:")) (arg #f))
+    (let ((getopt (make-getopt (cdr args) "whs:S:e:p:t:a:I:E:")) (arg #f))
       (do ((arg (getopt) (getopt))) ((not (and (pair? arg) (char? (car arg)))) (set! args arg))
 	(cond ((eq? (car arg) #\h)
 	       (begin (display "usage: autodl [-s server] -S sessfile\n" (current-error-port))