projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Translate.
[riece]
/
lisp
/
riece-000.el
diff --git
a/lisp/riece-000.el
b/lisp/riece-000.el
index
0894b10
..
277cae5
100644
(file)
--- a/
lisp/riece-000.el
+++ b/
lisp/riece-000.el
@@
-19,8
+19,8
@@
;; 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
;; 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., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Code:
;;; Code:
@@
-38,7
+38,7
@@
(defun riece-handle-001-message (prefix number name string)
"RPL_WELCOME \"Welcome to the Internet Relay Network <nick>!<user>@<host>\""
(if riece-real-server-name
(defun riece-handle-001-message (prefix number name string)
"RPL_WELCOME \"Welcome to the Internet Relay Network <nick>!<user>@<host>\""
(if riece-real-server-name
- (error
"Already registered"
))
+ (error
(riece-mcat "Already registered")
))
(setq riece-real-server-name prefix
riece-real-nickname name
riece-real-userhost nil)
(setq riece-real-server-name prefix
riece-real-nickname name
riece-real-userhost nil)
@@
-50,8
+50,8
@@
(list riece-dialogue-buffer riece-others-buffer)
(concat (substring string 1) "\n"))
(if (equal riece-server-name "")
(list riece-dialogue-buffer riece-others-buffer)
(concat (substring string 1) "\n"))
(if (equal riece-server-name "")
- (message
"Logging in to IRC server...done"
)
- (message
"Logging in to %s...done"
riece-server-name))
+ (message
(riece-mcat "Logging in to IRC server...done")
)
+ (message
(riece-mcat "Logging in to %s...done")
riece-server-name))
(let ((channel-list riece-startup-channel-list)
entry identity)
(while channel-list
(let ((channel-list riece-startup-channel-list)
entry identity)
(while channel-list
@@
-60,7
+60,7
@@
(if (equal (riece-identity-server
(setq identity (riece-parse-identity (car entry))))
riece-server-name)
(if (equal (riece-identity-server
(setq identity (riece-parse-identity (car entry))))
riece-server-name)
- (riece-command-join identity (nth 1 entry)))
+ (riece-command-join
-channel
identity (nth 1 entry)))
(setq channel-list (cdr channel-list))))
(run-hooks 'riece-after-login-hook))
(setq channel-list (cdr channel-list))))
(run-hooks 'riece-after-login-hook))