- (list
- (if (= (length riece-rdcc-requests) 1)
- (car riece-rdcc-requests)
- (with-output-to-temp-buffer "*Help*"
- (let ((requests riece-rdcc-requests)
- (index 1))
- (while requests
- (princ (format "%2d: %s %s (%d bytes)\n"
- index
- (car (car requests))
- (nth 1 (car requests))
- (nth 4 (car requests))))
- (setq index (1+ index)
- requests (cdr requests)))))
- (let ((number (read-string "Request#: ")))
- (unless (string-match "^[0-9]+$" number)
- (error "Not a number"))
- (if (or (> (setq number (string-to-number number))
- (length riece-rdcc-requests))
- (< number 1))
- (error "Invalid number"))
- (nth (1- number) riece-rdcc-requests)))
- (expand-file-name (read-file-name "Save as: ")))))
- (let* (selective-display
+ (let* ((request
+ (if (= (length riece-rdcc-requests) 1)
+ (car riece-rdcc-requests)
+ (with-output-to-temp-buffer "*Help*"
+ (let ((requests riece-rdcc-requests)
+ (index 1))
+ (while requests
+ (princ (format "%2d: %s %s (%d bytes)\n"
+ index
+ (car (car requests))
+ (nth 1 (car requests))
+ (nth 4 (car requests))))
+ (setq index (1+ index)
+ requests (cdr requests)))))
+ (let ((number (read-string "Request#: ")))
+ (unless (string-match "^[0-9]+$" number)
+ (error "Not a number"))
+ (if (or (> (setq number (string-to-number number))
+ (length riece-rdcc-requests))
+ (< number 1))
+ (error "Invalid number"))
+ (nth (1- number) riece-rdcc-requests))))
+ (default-name (expand-file-name
+ (convert-standard-filename (nth 1 request))
+ (or riece-rdcc-save-directory
+ default-directory))))
+ (list request
+ (expand-file-name
+ (read-file-name
+ (concat "Save as (default "
+ (file-name-nondirectory default-name) ") ")
+ (file-name-directory default-name)
+ default-name))))))
+ (let* ((temp-file (expand-file-name
+ (file-name-nondirectory file)
+ (expand-file-name (make-temp-name "riece-rdcc")
+ (if (featurep 'xemacs)
+ (temp-directory)
+ temporary-file-directory))))
+ (orig-mode (default-file-modes))
+ selective-display