Don't touch the query information when doing an XML-RPC call.

Ignore-this: b862cd822fdd388286525bf8d2ad4a22

darcs-hash:bcd1d88360610685932eba94ea6e42f0c7a990da

1 files changed, 1 insertions, 1 deletions

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)