2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 18e0e3b25b1..f9c0c7b287e 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2013-09-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+        * gnus-int.el (gnus-open-server): Silence compiler.
+
         * mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag.
 
         * message.el (message-display-completion-list): Abolish.
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index f0cf0daed01..2de6ce0fce1 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -302,7 +302,7 @@ If it is down, start it up (again)."
         (setcar
          (cdr elem)
          (cond (result
-                (if (eq open-server-function #'nnagent-open-server)
+                (if (eq open-server-function 'nnagent-open-server)
                     ;; The agent's backend has a "special" status
                     'offline
                   'ok))