From: bg66 <bg66>
Date: Fri, 6 Jun 2003 04:59:43 +0000 (+0000)
Subject: * riece-ndcc.el (riece-ndcc-server-sentinel): Close a parenthesis.
X-Git-Tag: riece-0_0-branchpoint~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e0b368e2d9349be8e8b2f7617906ab0ed6f416fa;p=elisp%2Friece.git

* riece-ndcc.el (riece-ndcc-server-sentinel): Close a parenthesis.

* riece-rdcc.el (riece-rdcc-insinuate): Don't use the 3rd argument of
`add-to-list'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3ee2d1..2639d1f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-06-06  OHASHI Akira  <bg66@koka-in.org>
+
+	* riece-ndcc.el (riece-ndcc-server-sentinel): Close a parenthesis.
+
+	* riece-rdcc.el (riece-rdcc-insinuate): Don't use the 3rd argument of
+	`add-to-list'.
+
 2003-06-06  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-channel.el (riece-forget-channel): Fixed.
diff --git a/lisp/riece-ndcc.el b/lisp/riece-ndcc.el
index 78a73d7..ca9244c 100644
--- a/lisp/riece-ndcc.el
+++ b/lisp/riece-ndcc.el
@@ -81,7 +81,7 @@ Only used for sending files."
 	(message "Sending %s...done"
 		 (buffer-file-name)))
       (kill-buffer (process-buffer (get-process parent-name))))
-    (kill-buffer (process-buffer process))
+    (kill-buffer (process-buffer process))))
 
 (defun riece-command-dcc-send (user file)
   (interactive
diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index e02b587..5b4e891 100644
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -293,7 +293,7 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
 
 (defvar riece-dialogue-mode-map)
 (defun riece-rdcc-insinuate ()
-  (add-to-list 'riece-ctcp-additional-clientinfo "DCC" t)
+  (add-to-list 'riece-ctcp-additional-clientinfo "DCC")
   (add-hook 'riece-ctcp-dcc-request-hook 'riece-handle-dcc-request)
   (define-key riece-dialogue-mode-map "\C-ds" 'riece-command-dcc-send)
   (define-key riece-dialogue-mode-map "\C-dr" 'riece-command-dcc-receive))