diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index a2d5baf1204..1c5fb7fbbcf 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -76,6 +76,8 @@
 (defvar eudc-form-widget-list nil)
 (defvar eudc-mode-map nil)
 
+(defvar mode-popup-menu)
+
 ;; List of known servers
 ;; Alist of (SERVER . PROTOCOL)
 (defvar eudc-server-hotlist nil)