Adjust thumbs to new rename-file behavior

* etc/NEWS: Mention this.
* lisp/thumbs.el (thumbs-rename-images): Treat the destination
as special only if it is a directory name.  When there is
a marked list, turn the destination into a directory name
if it is not already.

1 files changed, 4 insertions, 11 deletions

diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 0665429246f..d0b5e22414a 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -523,23 +523,16 @@ Open another window."
   (interactive "FRename to file or directory: ")
   (let ((files (or thumbs-marked-list (list (thumbs-current-image))))
         failures)
-    (if (and (not (file-directory-p newfile))
-             thumbs-marked-list)
-        (if (file-exists-p newfile)
-            (error "Renaming marked files to file name `%s'" newfile)
-          (make-directory newfile t)))
+    (when thumbs-marked-list
+      (make-directory newfile t)
+      (setq newfile (file-name-as-directory newfile)))
     (if (yes-or-no-p (format "Really rename %d files? " (length files)))
         (let ((thumbs-file-list (thumbs-file-alist))
               (inhibit-read-only t))
           (dolist (file files)
             (let (failure)
               (condition-case ()
-                  (if (file-directory-p newfile)
-                      (rename-file file
-                                   (expand-file-name
-                                    (file-name-nondirectory file)
-                                    newfile))
-                    (rename-file file newfile))
+                  (rename-file file newfile)
                 (file-error (setq failure t)
                             (push file failures)))
               (unless failure