From 1a0c37cae11abb59d146b566490f99884af2cfb5 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 30 Oct 2009 21:21:04 +0100
Subject: Don't touch the query information when doing an XML-RPC call.

Ignore-this: b862cd822fdd388286525bf8d2ad4a22

darcs-hash:bcd1d88360610685932eba94ea6e42f0c7a990da
---
 main.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index 57aa72c..891219e 100644
--- a/main.lisp
+++ b/main.lisp
@@ -47,7 +47,7 @@
                                       ((string= "rebuild" (car (last *subpath*))) :rebuild)
                                       ((member (car (last *subpath*)) '("rpc" "RPC2") :test #'string=) :xml-rpc)
                                       (t nil))))
-         (*query*           (if (eq *action* :view-atom-entry)
+         (*query*           (if (member *action* '(:view-atom-entry :xml-rpc))
                                 nil
                                 (mapcan #'(lambda (param)
                                             (list (keywordify param)
-- 
cgit v1.2.3