diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 493a4334e6e..ae31c616772 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-08  Chong Yidong  <cyd@gnu.org>
+
+	* net/rcirc.el (rcirc-cmd-quit): Revert 2012-03-18 change
+	(Bug#11192).
+
 2012-04-07  Glenn Morris  <rgm@gnu.org>
 
 	* pcmpl-rpm.el (pcomplete/rpm): Handle -qf.
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index d09b6aa831f..1c74e6190dc 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -2165,17 +2165,13 @@ CHANNELS is a comma- or space-separated string of channel names."
   (let ((channel (if (> (length channel) 0) channel target)))
     (rcirc-send-string process (concat "PART " channel " :" rcirc-id-string))))
 
-(defun-rcirc-command quit (reason all)
-  "Send a quit message to server with REASON.
-When called with prefix, quit all servers."
-  (interactive "sQuit reason: \nP")
-  (dolist (p (if all
-		 (rcirc-process-list)
-	       (list process)))
-    (rcirc-send-string p (concat "QUIT :"
-				 (if (not (zerop (length reason)))
-				     reason
-				   rcirc-id-string)))))
+(defun-rcirc-command quit (reason)
+  "Send a quit message to server with REASON."
+  (interactive "sQuit reason: ")
+  (rcirc-send-string process (concat "QUIT :"
+				     (if (not (zerop (length reason)))
+					 reason
+				       rcirc-id-string))))
 
 (defun-rcirc-command nick (nick)
   "Change nick to NICK."