From 6a0bd5d9dadd18833637a2676a3d7b4ac81e27bf Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 1 Oct 2003 04:51:24 +0000 Subject: [PATCH] * riece-rdcc.el (riece-rdcc-save-directory): New user option. --- lisp/ChangeLog | 4 ++++ lisp/riece-rdcc.el | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47dce37..d494fed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-10-01 Daiki Ueno + + * riece-rdcc.el (riece-rdcc-save-directory): New user option. + 2003-09-29 Daiki Ueno * riece-000.el (riece-handle-001-message): Parse elements in diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el index 43852ff..46429ce 100644 --- a/lisp/riece-rdcc.el +++ b/lisp/riece-rdcc.el @@ -80,6 +80,11 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{" :type 'list :group 'riece-rdcc) +(defcustom riece-rdcc-save-directory nil + "Default directory where received files are saved in." + :type 'directory + :group 'riece-rdcc) + (defvar riece-rdcc-requests nil) (defvar riece-rdcc-request-user nil) @@ -225,7 +230,8 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{" (error "Invalid number")) (nth (1- number) riece-rdcc-requests)))) (default-name (expand-file-name - (nth 1 request) default-directory))) + (nth 1 request) (or riece-rdcc-save-directory + default-directory)))) (list request (expand-file-name (read-file-name -- 1.7.10.4