I'm using Emacs 23.3.
When I run (in nxhtml-Q-emacs) update from development sources, I get the following backtrace:
Debugger entered--Lisp error: (error "Bad url: :/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el")
signal(error ("Bad url: :/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el"))
error("Bad url: %s" ":/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el")
url-retrieve-internal("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el" (lambda (&rest --cl-rest--) (apply #[... "\302\303\304p#\210\305L\210 pL\207" [G97701 G97700 url-debug retrieval "Synchronous fetching done (%S)" t] 4] (quote --asynch-buffer--) (quote --retrieval-done--) --cl-rest--)) (nil))
url-retrieve("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el" (lambda (&rest --cl-rest--) (apply #[... "\302\303\304p#\210\305L\210 pL\207" [G97701 G97700 url-debug retrieval "Synchronous fetching done (%S)" t] 4] (quote --asynch-buffer--) (quote --retrieval-done--) --cl-rest--)))
url-retrieve-synchronously("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el")
(let ((buffer ...) (handle nil) (ret nil)) (if (not buffer) (error "Retrieving url %s gave no buffer" url)) (with-current-buffer buffer (if ... ... ... ... ... ... ... ...)) ret)
web-vcs-url-copy-file("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el" "/home/rrt/local/share/emacs/nxhtml/TEMPORARY-WEB-AUTO-LOAD-autostart.el" nil t)
(setq http-sts (web-vcs-url-copy-file url dl-file nil t))
(let ((http-sts nil) (file-nonempty nil) (fail-reason nil)) (when dest-file (web-vcs-log url dest-file nil)) (web-vcs-display-messages nil) (setq http-sts (web-vcs-url-copy-file url dl-file nil t)) (if (and ... ... ...) (when dest-file ...) (setq fail-reason ...) (unless dest-file ...) (web-vcs-log nil nil ...) (web-vcs-message-with-face ... "Download failed: %s, %S" fail-reason url) (web-vcs-display-messages t) (message "\n") (web-vcs-message-with-face ... "Please retry what you did before!\n") (throw ... nil)))
web-vcs-url-copy-file-and-check("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el" "/home/rrt/local/share/emacs/nxhtml/TEMPORARY-WEB-AUTO-LOAD-autostart.el" "/home/rrt/local/share/emacs/nxhtml/autostart.el")
(cond ((and file-mask ...)) ((and dl-file-time url-file-time ... ...) (web-vcs-message-with-face ... "Local file %s is newer or same age" file-rel-name)) (t (while ... ... ...) (when ... ...) (web-vcs-url-copy-file-and-check url-file temp-file dl-file-name) (let* ... ... ... ... ... ...)))
(let* ((url-file ...) (url-file-time-str ...) (url-file-time ...) (url-file-name-regexp ...) (url-file-rel-name ...) (dl-file-name ...) (dl-file-time ...) (file-rel-name ...) (file-name ...) (temp-file ...) temp-buf) (cond (...) (... ...) (t ... ... ... ...)) (redisplay t))
(while --cl-dolist-temp-- (setq file (car --cl-dolist-temp--)) (let* (... ... ... ... ... ... ... ... ... ... temp-buf) (cond ... ... ...) (redisplay t)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- ...) file) (while --cl-dolist-temp-- (setq file ...) (let* ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
(catch (quote --cl-block-nil--) (let (... file) (while --cl-dolist-temp-- ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... file) (while --cl-dolist-temp-- ... ... ...) nil))
(dolist (file (reverse files)) (let* (... ... ... ... ... ... ... ... ... ... temp-buf) (cond ... ... ...) (redisplay t)))
web-vcs-download-files((lp "http://www.launchpad.com/ uses this 2009-11-29 with Loggerhead 1.10 (generic?)" ((time 1) (url 2) (patt "<td class=\"date\">\\([^<]*\\)</td>[[:space:]]*<td class=\"timedate2\">.+</td>\\(?:.\\|\n\\)*?href=\"\\(.*/download/[^\"]*\\)\"")) "href=\"\\(.*%3A/[^\"]*/\\)\"" "\\([^/]*\\)$" "for revision[[:space:]]+<span>\\([[:digit:]]+\\)</span>" "/\\([[:digit:]]+\\)\"[^>]+>\\(?:Release \\)?[[:digit:]]+\\.[[:digit:]]+<") (("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/webvcs.el-20091227180846-favloh4bvxp3i0mh-4/web-vcs.el" "2011-03-13 01:30:00") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20101219013302-uc6gbtmhecqw8ve2/webautoload.el-20091227180846-favloh4bvxp3i0mh-3/web-autoload.el" "2010-12-19 01:33:02") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110316010700-b7mttztbuoch7z8l/readme.txt-20091201225055-ijilnjhor5wc5s03-1/README.txt" "2011-03-16 01:07:00") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20100627022309-6em45v2czlwyjrgk/nxhtmlmaint.el-20090101213540-jlah6xe0n65g93pw-3/nxhtmlmaint.el" "2010-06-27 02:23:09") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110312192018-xd683glmgq1v0y9a/nxhtmlwebvcs.el-20100113172514-fyszxn1ypx4ml96h-2/nxhtml-web-vcs.el" "2011-03-12 19:20:18") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110317003048-0yfubjj336a5joy6/nxhtmlloaddefs.el-20080927190633-bvdatx6qc6m3ze5h-1/nxhtml-loaddefs.el" "2011-03-17 00:30:48") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20101228200718-9wwuyehbvtygvstb/nxhtmlbase.el-20100113172514-fyszxn1ypx4ml96h-1/nxhtml-base.el" "2010-12-28 20:07:18") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20090101213554-u78qtp1mw0225vzq/emacs22.cmd-20090101213540-jlah6xe0n65g93pw-2/emacs22.cmd" "2009-01-01 21:35:54") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20100118135750-uoj5q7chz82hzazn/autostart22.el-20090101213540-jlah6xe0n65g93pw-1/autostart22.el" "2010-01-18 13:57:50") ("/~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el" "2011-03-13 01:30:00")) "/home/rrt/local/share/emacs/nxhtml/" "/home/rrt/local/share/emacs/nxhtml/" "\\(?:\\.\\.?\\|README\\.txt\\|a\\(?:lts\\|utostart\\(?:\\(?:22\\)?\\.el\\)\\)\\|e\\(?:macs22\\.cmd\\|tc\\)\\|nxhtml\\(?:\\(?:-\\(?:base\\|\\(?:loaddef\\|web-vc\\)s\\)\\|maint\\)\\.el\\)?\\|related\\|tests\\|util\\|web-\\(?:\\(?:autoload\\|vcs\\)\\.el\\)\\|zipped-utils\\)")
(let* ((files-matcher ...) (dirs-href-regexp ...) (revision-regexp ...) (dl-dir ...) (lst-dl-relative ...) (lst-file-mask ...) this-page-revision files suburls (moved 0) (temp-file-base ...) temp-list-file temp-list-buf folder-res http-sts) (web-vcs-display-messages nil) (unless (file-directory-p dl-dir) (make-directory dl-dir t)) (setq temp-list-file (make-temp-name temp-file-base)) (setq temp-list-buf (web-vcs-ass-folder-cache url)) (unless temp-list-buf (setq folder-res ...) (unless ... ... ... ...)) (with-current-buffer (car folder-res) (when dl-revision ...) (when dl-revision ...) (goto-char ...) (let ... ...) (when recursive ... ...) (kill-buffer)) (web-vcs-download-files vcs-rec files dl-dir dl-root file-mask) (when suburls (dolist ... ...)) (list this-page-revision moved))
web-vcs-get-files-on-page-1((lp "http://www.launchpad.com/ uses this 2009-11-29 with Loggerhead 1.10 (generic?)" ((time 1) (url 2) (patt "<td class=\"date\">\\([^<]*\\)</td>[[:space:]]*<td class=\"timedate2\">.+</td>\\(?:.\\|\n\\)*?href=\"\\(.*/download/[^\"]*\\)\"")) "href=\"\\(.*%3A/[^\"]*/\\)\"" "\\([^/]*\\)$" "for revision[[:space:]]+<span>\\([[:digit:]]+\\)</span>" "/\\([[:digit:]]+\\)\"[^>]+>\\(?:Release \\)?[[:digit:]]+\\.[[:digit:]]+<") "http://bazaar.launchpad.net/%7Enxhtml/nxhtml/main/files/head%3A/" "/home/rrt/local/share/emacs/nxhtml/" "" "\\(?:\\.\\.?\\|README\\.txt\\|a\\(?:lts\\|utostart\\(?:\\(?:22\\)?\\.el\\)\\)\\|e\\(?:macs22\\.cmd\\|tc\\)\\|nxhtml\\(?:\\(?:-\\(?:base\\|\\(?:loaddef\\|web-vc\\)s\\)\\|maint\\)\\.el\\)?\\|related\\|tests\\|util\\|web-\\(?:\\(?:autoload\\|vcs\\)\\.el\\)\\|zipped-utils\\)" 0 nil nil)
(let ((vcs-rec ...)) (web-vcs-get-files-on-page-1 vcs-rec url dl-dir "" file-mask 0 nil nil))
web-vcs-get-missing-matching-files(lp "http://bazaar.launchpad.net/%7Enxhtml/nxhtml/main/files/head%3A/" "/home/rrt/local/share/emacs/nxhtml/" "\\(?:\\.\\.?\\|README\\.txt\\|a\\(?:lts\\|utostart\\(?:\\(?:22\\)?\\.el\\)\\)\\|e\\(?:macs22\\.cmd\\|tc\\)\\|nxhtml\\(?:\\(?:-\\(?:base\\|\\(?:loaddef\\|web-vc\\)s\\)\\|maint\\)\\.el\\)?\\|related\\|tests\\|util\\|web-\\(?:\\(?:autoload\\|vcs\\)\\.el\\)\\|zipped-utils\\)")
(let ((files-and-dirs ...) files dirs (this-rel ...) file-mask) (when (string= "./" this-rel) (setq this-rel "")) (dolist (df files-and-dirs) (if ... ... ...)) (setq file-mask (concat this-rel ...)) (web-vcs-get-missing-matching-files vcs base-url dl-dir file-mask) (dolist (d dirs) (web-vcs-update-existing-files vcs base-url dl-dir ...)))
web-vcs-update-existing-files(lp "http://bazaar.launchpad.net/%7Enxhtml/nxhtml/main/files/head%3A/" "/home/rrt/local/share/emacs/nxhtml/" "/home/rrt/local/share/emacs/nxhtml/")
(let ((vcs ...) (base-url ...) (dl-dir nxhtml-install-dir) web-vcs-folder-cache) (setq dl-dir (file-name-as-directory dl-dir)) (web-vcs-update-existing-files vcs base-url dl-dir dl-dir) (web-vcs-clear-folder-cache))
(progn (message "") (web-vcs-display-messages t) (web-vcs-message-with-face (quote web-vcs-yellow) "*\nStarting updating your nXhtml files.\n*\n") (message nil) (web-vcs-clear-folder-cache) (let (... ... ... web-vcs-folder-cache) (setq dl-dir ...) (web-vcs-update-existing-files vcs base-url dl-dir dl-dir) (web-vcs-clear-folder-cache)) (display-buffer (get-buffer-create "*Compile-Log*")) (nxhtmlmaint-byte-recompile) (web-vcs-log-save) (web-vcs-message-with-face (quote web-vcs-yellow) "*\nFinished updating your nXhtml files.\n*\n") (message nil))
(if (y-or-n-p "Do you want to update your nXhtml files? ") (progn (message "") (web-vcs-display-messages t) (web-vcs-message-with-face ... "*\nStarting updating your nXhtml files.\n*\n") (message nil) (web-vcs-clear-folder-cache) (let ... ... ... ...) (display-buffer ...) (nxhtmlmaint-byte-recompile) (web-vcs-log-save) (web-vcs-message-with-face ... "*\nFinished updating your nXhtml files.\n*\n") (message nil)))
(when (y-or-n-p "Do you want to update your nXhtml files? ") (message "") (web-vcs-display-messages t) (web-vcs-message-with-face (quote web-vcs-yellow) "*\nStarting updating your nXhtml files.\n*\n") (message nil) (web-vcs-clear-folder-cache) (let (... ... ... web-vcs-folder-cache) (setq dl-dir ...) (web-vcs-update-existing-files vcs base-url dl-dir dl-dir) (web-vcs-clear-folder-cache)) (display-buffer (get-buffer-create "*Compile-Log*")) (nxhtmlmaint-byte-recompile) (web-vcs-log-save) (web-vcs-message-with-face (quote web-vcs-yellow) "*\nFinished updating your nXhtml files.\n*\n") (message nil))
nxhtml-update-existing-files()
call-interactively(nxhtml-update-existing-files nil nil)
and here is my web-vcs-log.org:
* 2011-04-09
** Downloading file 23:00:10 GMT
file [[file:/home/rrt/local/share/emacs/nxhtml/autostart.el][/home/rrt/local/share/emacs/nxhtml/autostart.el]]
from /~nxhtml/nxhtml/main/download/lennart.borgman%40gmail.com-20110313013000-drl16yyp60auegw9/autostart.el-20080724174035-zgon4j679232cch3-2/autostart.el
It seems not to be constructing the URL correctly...
Thanks Thomas, I thought I had fixed that (in the latest beta 2.09 though). Could you please update just web-vcs.el (see http://
(Thanks for the backtrace. For long back traces it is a bit more convenient to have them as attachment since it is easier to read the discussion then.)