gnus-salt.el (gnus--let-eval): Silence the Buildbot

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef841d3..9e12a35 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-06  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-salt.el (gnus--let-eval): Silence the Buildbot.
+
 2013-11-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-cite.el (gnus-cite-add-face): Make non-sticky overlays.

diff --git a/lisp/gnus-salt.el b/lisp/gnus-salt.el
index 77fe0d3..af93688 100644 (file)
--- a/lisp/gnus-salt.el
+++ b/lisp/gnus-salt.el
@@ -652,7 +652,7 @@ BINDINGS is a `let'-style list of bindings to use for the environment.
 EVALSYM is then bound in BODY to a function that takes a sexp and evaluates
 it in the environment specified by BINDINGS."
   (declare (indent 2) (debug ((&rest (sym form)) sym body)))
-  (if (ignore-errors (let ((x 3)) (eq (eval '(- x 1) '((x . 4))) x)))
+  (if (eval '(ignore-errors (let ((x 3)) (eq (eval '(- x 1) '((x . 4))) x))))
       ;; Use lexical vars if possible.
       `(let* ((env (list ,@(mapcar (lambda (binding)
                                      `(cons ',(car binding) ,(cadr binding)))