projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle errors from base64-decode-string.
[riece]
/
lisp
/
riece-ndcc.el
diff --git
a/lisp/riece-ndcc.el
b/lisp/riece-ndcc.el
index
72301f8
..
58a417e
100644
(file)
--- a/
lisp/riece-ndcc.el
+++ b/
lisp/riece-ndcc.el
@@
-18,8
+18,8
@@
;; 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
;; 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., 5
9 Temple Place - Suite 330
,
-;; Boston, MA 0211
1-1307
, USA.
+;; Free Software Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+;; Boston, MA 0211
0-1301
, USA.
;;; Commentary:
;;; Commentary:
@@
-48,8
+48,6
@@
Only used for sending files."
(defvar riece-ndcc-request-user nil)
(defvar riece-ndcc-request-size nil)
(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.)")
(defconst riece-ndcc-description
"DCC file sending protocol support (written in elisp.)")
@@
-196,7
+194,7
@@
Only used for sending files."
(defun riece-handle-dcc-request (prefix target message)
(let ((case-fold-search t))
(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))
(string-match
"SEND \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\)"
message))