-;;; riece-ndcc.el --- elisp native DCC add-on
+;;; riece-ndcc.el --- DCC file sending protocol support (written in elisp)
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
+;; NOTE: This is an add-on module for Riece.
+
;;; Code:
(require 'riece-globals)
(require 'calc)
(defgroup riece-ndcc nil
- "Elisp native DCC implementation"
+ "DCC written in elisp."
:prefix "riece-"
:group 'riece)
(defvar riece-ndcc-enabled nil)
(defconst riece-ndcc-description
- "DCC file sending extension implemented with `make-network-process'")
+ "DCC file sending protocol support (written in elisp.)")
(defun riece-ndcc-encode-address (address)
(unless (string-match
(defun riece-ndcc-insinuate ()
(add-hook 'riece-ctcp-dcc-request-hook 'riece-handle-dcc-request))
+(defun riece-ndcc-uninstall ()
+ (remove-hook 'riece-ctcp-dcc-request-hook 'riece-handle-dcc-request))
+
(defun riece-ndcc-enable ()
(define-key riece-dialogue-mode-map "\C-ds" 'riece-command-dcc-send)
(define-key riece-dialogue-mode-map "\C-dr" 'riece-command-dcc-receive))