Author: ehuelsmann
Date: Thu Mar 15 15:42:16 2007
New Revision: 178
Modified:
trunk/event.lisp
Log:
Fix thinko reported by Lars Rune Nostdal (larsnostdal at gmail dot com).
Modified: trunk/event.lisp
==============================================================================
--- trunk/event.lisp (original)
+++ trunk/event.lisp Thu Mar 15 15:42:16 2007
@@ -158,9 +158,9 @@
(declare (ignore nick))
(let ((channel (find-channel connection channel)))
(setf (visibility channel)
- (or (car (assoc chan-visibility
- '(("=" :public) ("*" :private) ("@" :secret))
- :test #'string=))
+ (or (second (assoc chan-visibility
+ '(("=" :public) ("*" :private) ("@" :secret))
+ :test #'string=))
:unknown))
(unless (has-mode-p channel 'namreply-in-progress)
(add-mode channel 'namreply-in-progress
