* riece-rdcc.el: Require riece-globals, riece-misc, riece-channel,

[riece] / lisp / riece-rdcc.el

diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index 4e41294..0472aed 100644 (file)
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -23,6 +23,11 @@
 
 ;;; Code:
 
+(require 'riece-globals)
+(require 'riece-misc)
+(require 'riece-channel)
+(require 'riece-identity)
+
 (defgroup riece-rdcc nil
   "DCC implementation using ruby"
   :prefix "riece-"
@@ -41,7 +46,8 @@ Only used for sending files."
 
 (defcustom riece-rdcc-send-program
   '("\
-unless " address "
+address = " address "
+unless address
   sock = UDPSocket.new
   sock.connect('164.46.176.4', 7)              # www.unixuser.org/echo
   address = sock.getsockname[4 .. 7].unpack('CCCC').join('.')
@@ -223,7 +229,8 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
                   (nth 3 request))))
     (setq riece-rdcc-requests (delq request riece-rdcc-requests))
     (with-current-buffer (process-buffer process)
-      (set-buffer-multibyte nil)
+      (if (fboundp 'set-buffer-multibyte)
+         (set-buffer-multibyte nil))
       (buffer-disable-undo)
       (setq buffer-file-name file)
       (make-local-variable 'riece-rdcc-request-user)