(nnir-add-result): Properly substitute the parameters.

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index e1d444e..7ab7627 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,4 +1,4 @@
-2008-05-08  Andreas Schwab  <schwab@suse.de>
+2008-05-15  Andreas Schwab  <schwab@suse.de>
 
        * nnir.el (nnir-add-result): Properly substitute the parameters.
 

diff --git a/contrib/nnir.el b/contrib/nnir.el
index 8b106df..a0f0408 100644 (file)
--- a/contrib/nnir.el
+++ b/contrib/nnir.el
@@ -849,9 +849,9 @@ and show thread that contains this article."
 (defmacro nnir-add-result (dirnam artno score prefix server artlist)
   "Ask `nnir-compose-result' to construct a result vector, 
 and if it is non-nil, add it to artlist."
-  `(let ((result (nnir-compose-result dirnam artno score prefix server)))
+  `(let ((result (nnir-compose-result ,dirnam ,artno ,score ,prefix ,server)))
      (when (not (null result))
-       (push result artlist))))
+       (push result ,artlist))))
 
 (autoload 'nnmaildir-base-name-to-article-number "nnmaildir")