From: ueno <ueno>
Date: Tue, 19 Jul 2005 07:30:05 +0000 (+0000)
Subject: * riece-unread.el (riece-guess-channel-from-unread): Return
X-Git-Tag: channel-coding-branchpoint~225
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4df2707cf4fefd13d1872b89ec9436bef3223557;p=elisp%2Friece.git

* 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
--- 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
--- 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
--- 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)