* riece-unread.el (riece-guess-channel-from-unread): Return

reversed copy of riece-unread-channels.

* riece-server.el (riece-server-parse-string): Use
string-to-number instead of string-to-int.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9340f6d..54913c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-07-19  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-unread.el (riece-guess-channel-from-unread): Return
+       reversed copy of riece-unread-channels.
+
+       * riece-server.el (riece-server-parse-string): Use
+       string-to-number instead of string-to-int.
+
 2005-07-07  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-display.el (riece-channel-buffer): Return nil when

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 3204193..9ee0e90 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -72,7 +72,7 @@ the `riece-server-keyword-map' variable."
          plist)
       (setq plist (cons `(:host ,host) plist))
       (unless (equal service "")
-       (setq plist (cons `(:service ,(string-to-int service)) plist)))
+       (setq plist (cons `(:service ,(string-to-number service)) plist)))
       (unless (equal password "")
        (setq plist (cons `(:password ,(substring password 1)) plist)))
       (apply #'nconc plist))))

diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index e11a3f8..a36b72f 100644 (file)
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -123,7 +123,7 @@
     (error "No unread channel!")))
 
 (defun riece-guess-channel-from-unread ()
-  riece-unread-channels)
+  (reverse riece-unread-channels))
 
 (defun riece-unread-requires ()
   (let (requires)