Re: nnslashdot groups hang emacs!

[Shenghuo ZHU <zsh@cs.rochester.edu>]

[-- Attachment #1: Type: text/plain, Size: 959 bytes --]

>>>>> "BP" == William M Perry <wmperry@aventail.com> writes:

BP> dave-mlist@bfnet.com writes:
>> >> Is there any way to break out of it without killing emacs?
>> 
BP> Well, it is usually in a spin of (while ... (accept-process-output process
BP> 1)), and if that is not interruptible, it is a bug in emacs.  This should
BP> be less of a problem since everything in the new package is asynch by
BP> default and doesn't do silly things like those asynch loops.
>> 
>> What do you mean by "everything in the new package?"
>> What new package?

BP> cvs -d :pserver:anoncvs@anoncvs.gnu.org:/gd/gnu/anoncvsroot/ checkout url

Could you please apply this patch?

Because HotMail only accepts one line cookie, and Netscape, perl LWP
send out one line cookie by default.

-- 
Shenghuo

1999-12-10 01:57:01  Shenghuo ZHU  <zsh@cs.rochester.edu>

	* lisp/url-cookie.el (url-cookie-multiple-line): One line cookie
 	if nil.
	(url-cookie-generate-header-lines): Use it.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: one-line-cookie.diff --]
[-- Type: text/x-patch, Size: 1045 bytes --]

Index: url-cookie.el
===================================================================
RCS file: /gd/gnu/anoncvsroot/url/lisp/url-cookie.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 url-cookie.el
--- url-cookie.el	1999/11/26 12:11:47	1.1.1.1
+++ url-cookie.el	1999/12/10 06:53:05
@@ -255,6 +255,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))
@@ -272,7 +276,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)