--- ./gnuserv-3.12.5-orig/gnuserv.el	2002-09-13 21:20:00.000000000 +0900
+++ ./gnuserv-3.12.5/gnuserv.el	2002-11-19 10:43:47.000000000 +0900
@@ -272,7 +272,10 @@
 (make-variable-buffer-local 'gnuserv-minor-mode)
 ;;(pushnew '(gnuserv-minor-mode "Server") minor-mode-alist
 ;;	 :test 'equal)
-(add-minor-mode 'gnuserv-minor-mode 'gnuserv-mode-line-string)
+(if (fboundp 'add-minor-mode)
+    (add-minor-mode 'gnuserv-minor-mode 'gnuserv-mode-line-string)
+  (require 'alist)
+  (set-alist 'minor-mode-alist 'gnuserv-minor-mode (list gnuserv-mode-line-string)))

 
 ;; Sample gnuserv-frame functions