[Erc-commit] [commit][emacs22] Show channel list in server buffer if it's not chanlist-mode.

[mwolson]

commit dff88585cf9f9cf96ef48105e9848741d5a78bc3
Author: Diane Murray <address@hidden>
Date:   Thu Jan 11 02:22:53 2007 +0000

    Show channel list in server buffer if it's not chanlist-mode.
    
    * erc-backend.el (321, 323): Display channel list in server buffer
    when not using the channel list module.
    git-archimport-id: address@hidden/erc--main--0--patch-86

diff --git a/ChangeLog b/ChangeLog
index 8a48196..1be6505 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2007-01-11  Diane Murray  <address@hidden>
 
+       * erc-backend.el (321, 323): Display channel list in server buffer
+       when not using the channel list module.
+
        * erc.el: Updated copyright years.
        (erc-version-string): Set to 5.2 (devel).
        (erc-format-lag-time): Fixed to work when `erc-server-lag' is nil.
diff --git a/erc-backend.el b/erc-backend.el
index 3f653a1..477354b 100644
--- a/erc-backend.el
+++ b/erc-backend.el
@@ -1571,7 +1571,7 @@ See `erc-display-server-message'." nil
 (define-erc-response-handler (321)
   "LIST header." nil
   (setq erc-channel-list nil)
-  (erc-display-message parsed 'notice 'active 's321))
+  (erc-display-message parsed 'notice proc 's321))
 
 (define-erc-response-handler (322)
   "LIST notice." nil
@@ -1581,7 +1581,7 @@ See `erc-display-server-message'." nil
       (add-to-list 'erc-channel-list (list channel))
       (erc-update-channel-topic channel topic)
       (erc-display-message
-       parsed 'notice 'active 's322
+       parsed 'notice proc 's322
        ?c channel ?u num-users ?t (or topic "")))))
 
 (define-erc-response-handler (324)