From 625bfcd20218e6fd1ac6348ab8a00a60a956f4d2 Mon Sep 17 00:00:00 2001
From: fredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Date: Sun, 30 Oct 2005 02:07:16 +0000
Subject: [PATCH] Revert to normal when found.

git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@426 959494ce-11ee-0310-bf91-de5d638817bd
---
 lib/guile/autodl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/guile/autodl b/lib/guile/autodl
index d9e291b..1f3c086 100755
--- a/lib/guile/autodl
+++ b/lib/guile/autodl
@@ -514,6 +514,8 @@
 							(write-info-file)))))
 					  ((622) ; Search result
 					   (let ((ires (list->vector (dc-intresp resp))))
+					     (if (eq? (cdr (assoc 'search-mode session)) 'wait)
+						 (set-cdr! (assoc 'search-mode session) 'normal))
 					     (if (and ires (= (vector-ref ires 0) srchid)) (apply handlesr (map (lambda (n) (vector-ref ires n)) '(1 2 3 4 5 7 8))))))
 					  
 					  )
-- 
2.11.0