X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-000.el;fp=lisp%2Friece-000.el;h=eb867ebf8557825283d8449b06997feb6c926573;hp=bd26fb6c1758e9915d2947990f739dab95786634;hb=218d1f3a9ab6ab368fb9de131a15b9e79af16ea0;hpb=5d58ca7bff739344da2f03b3b86540f2119ffe14

diff --git a/lisp/riece-000.el b/lisp/riece-000.el
index bd26fb6..eb867eb 100644
--- a/lisp/riece-000.el
+++ b/lisp/riece-000.el
@@ -1,4 +1,4 @@
-;;; riece-000.el --- handlers for 000 replies
+;;; riece-000.el --- handlers for 000 replies -*- lexical-binding: t -*-
 ;; Copyright (C) 1998-2003 Daiki Ueno
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -35,7 +35,7 @@
   (riece-default-handle-numeric-reply
    riece-info-prefix prefix number name string))
 
-(defun riece-handle-001-message (prefix number name string)
+(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 (riece-mcat "Already registered")))
@@ -64,7 +64,7 @@
 	  (riece-command-join-channel identity (nth 1 entry)))
       (setq channel-list (cdr channel-list)))))
 
-(defun riece-handle-004-message (prefix number name string)
+(defun riece-handle-004-message (_prefix _number _name string)
   "RPL_MYINFO \"<umodes> <chnlmodes>\""
   (if (string-match "^[^ ]+ +[^ ]+ +\\([^ ]+\\) +" string)
       (setq riece-supported-user-modes