(riece-command-previous-channel): Skip nil in

riece-current-channels.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bfb6fb9..24c3802 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-17  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-commands.el (riece-command-previous-channel): Skip nil in
+       riece-current-channels.
+
 2003-08-03  Daiki Ueno  <ueno@unixuser.org>
 
        * Riece: Version 0.0.4 released.

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 3442c5d..8b9b99d 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -96,7 +96,8 @@
          (start riece-current-channels)
          channel)
       (while (and start (not (eq start pointer)))
-       (setq channel (car start))
+       (if (car start)
+           (setq channel (car start)))
        (setq start (cdr start)))
       (when (null channel)
        (setq start (copy-sequence riece-current-channels))