;; 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., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
(defvar riece-ndcc-request-user nil)
(defvar riece-ndcc-request-size nil)
-(defvar riece-ndcc-enabled nil)
-
(defconst riece-ndcc-description
"DCC file sending protocol support (written in elisp.)")
(defun riece-handle-dcc-request (prefix target message)
(let ((case-fold-search t))
- (when (and riece-ndcc-enabled
+ (when (and (get 'riece-ndcc 'riece-addon-enabled)
(string-match
"SEND \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)"
message))