cgit.sxemacs.org Git - gnus/blob - contrib/one-line-cookie.diff

   1 Index: url-cookie.el
   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
   8 @@ -255,6 +255,10 @@
   9                 (setq retval (cons cur retval))))))
  10      retval))
  11
  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.")
  15 +
  16  ;;;###autolaod
  17  (defun url-cookie-generate-header-lines (host path secure)
  18    (let* ((cookies (url-cookie-retrieve host path secure))
  19 @@ -272,7 +276,8 @@
  20        (setq cur (car cookies)
  21             cookies (cdr 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)
  27                      (if retval
  28                          (concat retval "; " chunk)