;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
;; Remove nonexistent users.
(setq pointer (riece-channel-users (riece-get-channel channel-name)))
(while pointer
- (unless (assq (car (car pointer)) users)
+ (unless (assoc (car (car pointer)) users)
(riece-user-toggle-channel (car (car pointer)) channel-name nil)
(riece-channel-toggle-user channel-name (car (car pointer)) nil))
(setq pointer (cdr pointer)))