Index: url-cookie.el =================================================================== RCS file: /gd/gnu/anoncvsroot/w3/lisp/url-cookie.el,v retrieving revision 1.4 diff -u -r1.4 url-cookie.el --- url-cookie.el 1999/11/09 14:52:19 1.4 +++ url-cookie.el 1999/11/22 03:05:49 @@ -240,6 +240,10 @@ (setq retval (cons cur retval)))))) retval)) +(defvar url-cookie-multiple-line t + "If nil, use one line cookie. +Some web servers, such as hotmail, only accept one line cookie.") + ;;;###autolaod (defun url-cookie-generate-header-lines (host path secure) (let* ((cookies (url-cookie-retrieve host path secure)) @@ -257,7 +261,8 @@ (setq cur (car cookies) cookies (cdr cookies) chunk (format "%s=%s" (url-cookie-name cur) (url-cookie-value cur)) - retval (if (< 80 (+ (length retval) (length chunk) 4)) + retval (if (and url-cookie-multiple-line + (< 80 (+ (length retval) (length chunk) 4))) (concat retval "\r\nCookie: " chunk) (if retval (concat retval "; " chunk)