diff --git a/hemlock/netnews.lisp b/hemlock/netnews.lisp
index 8adaa35bb6631e3bacfdd9fdc60068484aae4db6..9ebe77252fce5d70fcd16273d0461390e768e572 100644
--- a/hemlock/netnews.lisp
+++ b/hemlock/netnews.lisp
@@ -2304,60 +2304,3 @@
 (defun nntp-post (stream)
   (write-nntp-command "post" stream :post))
 
-(bind-key "Netnews Show Article" #k"space" :mode "News-Headers")
-(bind-key "Netnews Next Article" #k"n" :mode "News-Headers")
-(bind-key "Netnews Previous Article" #k"p" :mode "News-Headers")
-(bind-key "Netnews Previous Line" #k"Uparrow" :mode "News-Headers")
-(bind-key "Netnews Previous Line" #k"C-p" :mode "News-Headers")
-(bind-key "Netnews Next Line" #k"Downarrow" :mode "News-Headers")
-(bind-key "Netnews Next Line" #k"C-n" :mode "News-Headers")
-(bind-key "Netnews Headers Scroll Window Down" #k"c-v" :mode "News-Headers")
-(bind-key "Netnews Headers Scroll Window Up" #k"m-v" :mode "News-Headers")
-(bind-key "Netnews Next Article" #k"n" :mode "News-Message")
-(bind-key "Netnews Previous Article" #k"p" :mode "News-Message")
-(bind-key "Netnews Message Scroll Down"  #k"space" :mode "News-Message")
-(bind-key "Scroll Window Up" #k"backspace" :mode "News-Message")
-(bind-key "Netnews Message Select Headers Buffer" #k"hyper-h"
-	  :mode "News-Message")
-(bind-key "Netnews Message Select Headers Buffer" #k"^" :mode "News-Message")
-(bind-key "Netnews Message Keep Buffer" #k"k" :mode "News-Message")
-(bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "News-Headers")
-(bind-key "Netnews Select Message Buffer" #k"hyper-m" :mode "Post")
-(bind-key "Netnews Exit" #k"q" :mode "News-Headers")
-(bind-key "Netnews Message Punt" #k"q" :mode "News-Message")
-(bind-key "Netnews Go to Next Group" #k"g" :mode "News-Headers")
-(bind-key "Netnews Go to Next Group" #k"g" :mode "News-Message")
-(bind-key "Netnews Headers File Message" #k"o" :mode "News-Headers")
-(bind-key "Netnews Message File Message" #k"o" :mode "News-Message")
-(bind-key "List All Newsgroups" #k"l" :mode "News-Headers")
-(bind-key "List All Newsgroups" #k"l" :mode "News-Message")
-(bind-key "Netnews Append to File" #k"a" :mode "News-Headers")
-(bind-key "Netnews Append to File" #k"a" :mode "News-Message")
-(bind-key "Netnews Post Message" #k"s" :mode "News-Headers")
-(bind-key "Netnews Post Message" #k"s" :mode "News-Message")
-(bind-key "Netnews Reply to Message" #k"r" :mode "News-Headers")
-(bind-key "Netnews Reply to Message in Other Window" #k"r"
-	  :mode "News-Message")
-(bind-key "netnews Reply to Message in Other Window" #k"R"
-	  :mode "News-Headers")
-(bind-key "Netnews Reply via Mail" #k"m" :mode "News-Headers") ; 
-(bind-key "Netnews Reply via Mail" #k"m" :mode "News-Message")
-(bind-key "Netnews Forward Message" #k"f" :mode "News-Message")
-(bind-key "Netnews Forward Message" #k"f" :mode "News-Headers")
-(bind-key "Netnews Deliver Post" #k"hyper-s" :mode "Post")
-(bind-key "Netnews Message Select Post Buffer" #k"hyper-p"
-	  :mode "News-Message")
-(bind-key "Netnews Message Select Draft Buffer" #k"hyper-d"
-	  :mode "News-Message")
-(bind-key "Netnews Abort Post" #k"hyper-q" :mode "Post")
-(bind-key "Insert Message Buffer" #k"Hyper-y" :mode "Post")
-(bind-key "Insert Message Region" #k"Hyper-y" :mode "News-Message")
-(bind-key "Netnews Punt Headers" #k"Hyper-p" :mode "News-Headers")
-
-
-(bind-key "Netnews Quit Browse" #k"q" :mode "News-Browse")
-(bind-key "Netnews Browse Add Newsgroup To File" #k"a"
-	  :mode "News-Browse")
-(bind-key "Netnews Browse Read Group" #k"space" :mode "News-Browse")
-(bind-key "Next Line" #k"n" :mode "News-Browse")
-(bind-key "Previous Line" #k"p" :mode "News-Browse")