From 4df2707cf4fefd13d1872b89ec9436bef3223557 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 19 Jul 2005 07:30:05 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 8 ++++++++ lisp/riece-server.el | 2 +- lisp/riece-unread.el | 2 +- 3 files changed, 10 insertions(+), 2 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4