(iphoto-dir-to-album-dir): Change signature to add `image-url-root'.

diff --git a/iphoto-util.el b/iphoto-util.el
index 1321b7d..2fb04a6 100644 (file)
--- a/iphoto-util.el
+++ b/iphoto-util.el
@@ -107,7 +107,7 @@
                      (nth 0 time-max))))))
 
 (defun iphoto-dir-to-album-dir (year month day album-name
-                                    url-root album-dir-root)
+                                    album-dir-root url-root image-url-root)
   (let ((coding-system-for-write 'utf-8-jp-er)
        (album-dir-base (expand-file-name album-name album-dir-root))
        album-dir album-dir-original ret a-dir-n a-dirs)
@@ -191,7 +191,7 @@
       >%s</a>
 "
                        url-root album-name sub-url
-                       url-root album-name sub-url
+                       image-url-root album-name sub-url
                        (progn
                          (setq ret
                                (directory-files
@@ -218,4 +218,3 @@
                    (expand-file-name
                     "index.html.ja.utf-8" album-dir-base))
       )))
-                 
\ No newline at end of file