Be good about quoting arguments to eweouz-search-do

diff --git a/lisp/eweouz.el b/lisp/eweouz.el
index 63845be85eabd7a3203010ed7ba2e37db0c3c397..fc015690e6da42d75fea20d8e812fcc3860847e2 100644 (file)
--- a/lisp/eweouz.el
+++ b/lisp/eweouz.el
@@ -153,8 +153,8 @@
     (let* ((from (mail-header-parse-address (gnus-fetch-field "From")))
           (email (car from))
           (name (cdr from))
-          (record (or (eweouz-search-do identity email 1)
-                      (eweouz-search-do identity name 1))))
+          (record (or (eweouz-search-do 'identity email 1)
+                      (eweouz-search-do 'identity name 1))))
       (if record
          (eweouz-do-update record name email)
        (eweouz-do-add from)))))