2 ===================================================================
3 RCS file: /gd/gnu/anoncvsroot/url/lisp/url-cookie.el,v
4 retrieving revision 1.1.1.1
5 diff -u -r1.1.1.1 url-cookie.el
6 --- url-cookie.el 1999/11/26 12:11:47 1.1.1.1
7 +++ url-cookie.el 1999/12/10 06:53:05
9 (setq retval (cons cur retval))))))
12 +(defvar url-cookie-multiple-line t
13 + "If nil, use one line cookie.
14 +Some web servers, such as hotmail, only accept one line cookie.")
17 (defun url-cookie-generate-header-lines (host path secure)
18 (let* ((cookies (url-cookie-retrieve host path secure))
20 (setq cur (car cookies)
22 chunk (format "%s=%s" (url-cookie-name cur) (url-cookie-value cur))
23 - retval (if (< 80 (+ (length retval) (length chunk) 4))
24 + retval (if (and url-cookie-multiple-line
25 + (< 80 (+ (length retval) (length chunk) 4)))
26 (concat retval "\r\nCookie: " chunk)
28 (concat retval "; " chunk)