Debugger entered--Lisp error: (args-out-of-range "" 0) aref("" 0) (eq 46 (aref (car cur) 0)) (if (eq 46 (aref (car cur) 0)) (substring (car cur) 1) (car cur)) (regexp-quote (if (eq 46 (aref (car cur) 0)) (substring (car cur) 1) (car cur))) (concat "^.*" (regexp-quote (if (eq 46 (aref (car cur) 0)) (substring (car cur) 1) (car cur))) "$") (string-match (concat "^.*" (regexp-quote (if (eq 46 (aref (car cur) 0)) (substring (car cur) 1) (car cur))) "$") host) (and (car cur) (string-match (concat "^.*" (regexp-quote (if (eq 46 (aref (car cur) 0)) (substring (car cur) 1) (car cur))) "$") host)) (if (and (car cur) (string-match (concat "^.*" (regexp-quote (if (eq 46 (aref ... 0)) (substring (car cur) 1) (car cur))) "$") host)) (dolist (cur cookies) (and (if (and (stringp (setq localpart-match (url-cookie-localpart cur))) (stringp localpart)) (string-match (concat "^" (regexp-quote localpart-match)) localpart) (equal localpart localpart-match)) (not (url-cookie-expired-p cur)) (setq retval (cons cur retval))))) (while --dolist-tail-- (setq cur (car --dolist-tail--)) (setq cookies (cdr cur)) (if (and (car cur) (string-match (concat "^.*" (regexp-quote (if (eq 46 ...) (substring ... 1) (car cur))) "$") host)) (dolist (cur cookies) (and (if (and (stringp (setq localpart-match ...)) (stringp localpart)) (string-match (concat "^" (regexp-quote localpart-match)) localpart) (equal localpart localpart-match)) (not (url-cookie-expired-p cur)) (setq retval (cons cur retval))))) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- storage) cur) (while --dolist-tail-- (setq cur (car --dolist-tail--)) (setq cookies (cdr cur)) (if (and (car cur) (string-match (concat "^.*" (regexp-quote (if ... ... ...)) "$") host)) (dolist (cur cookies) (and (if (and (stringp ...) (stringp localpart)) (string-match (concat "^" ...) localpart) (equal localpart localpart-match)) (not (url-cookie-expired-p cur)) (setq retval (cons cur retval))))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (dolist (cur storage) (setq cookies (cdr cur)) (if (and (car cur) (string-match (concat "^.*" (regexp-quote (if (eq 46 ...) (substring ... 1) (car cur))) "$") host)) (dolist (cur cookies) (and (if (and (stringp (setq localpart-match ...)) (stringp localpart)) (string-match (concat "^" (regexp-quote localpart-match)) localpart) (equal localpart localpart-match)) (not (url-cookie-expired-p cur)) (setq retval (cons cur retval)))))) (let ((storage (if secure (append url-cookie-secure-storage url-cookie-storage) url-cookie-storage)) (case-fold-search t) cookies retval localpart-match) (dolist (cur storage) (setq cookies (cdr cur)) (if (and (car cur) (string-match (concat "^.*" (regexp-quote (if ... ... ...)) "$") host)) (dolist (cur cookies) (and (if (and (stringp ...) (stringp localpart)) (string-match (concat "^" ...) localpart) (equal localpart localpart-match)) (not (url-cookie-expired-p cur)) (setq retval (cons cur retval)))))) retval) url-cookie-retrieve("www.feiertage.net" "/" nil) (let ((cookies (url-cookie-retrieve host localpart secure)) retval chunk) (setq cookies (and cookies (sort cookies (lambda (x y) (> (length (url-cookie-localpart x)) (length (url-cookie-localpart y))))))) (dolist (cur cookies) (setq chunk (format "%s=%s" (url-cookie-name cur) (url-cookie-value cur)) retval (if (and url-cookie-multiple-line (< 80 (+ (length retval) (length chunk) 4))) (concat retval " \nCookie: " chunk) (if retval (concat retval "; " chunk) (concat "Cookie: " chunk))))) (if retval (concat retval " \n") "")) url-cookie-generate-header-lines("www.feiertage.net" "/" nil) url-http-create-request() url-http-async-sentinel(#> "open\n")