Bug#131098: w3-el-e21: 100% cpu and no progress (using GNUS/nnslashdot)

Bug#131098: w3-el-e21: 100% cpu and no progress (using GNUS/nnslashdot)

[Rupa Schomaker]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=us-ascii, Size: 8758 bytes --]

Package: w3-el-e21
Version: 4.0pre.2001.10.27-6
Severity: normal

I haven't yet been able to narrow this down 100%, but these are the
symptoms.

1) Using current CVS gnus
2) Using nnslashdot and refreshing the group list
3) Using debian's emacs21, w3-el-e21, etc

No progress seems to be getting made and the CPU is at 100%.  A
backtrace at the time:

Debugger entered--Lisp error: (quit)
  url-retrieve-synchronously("http://slashdot.org/slashdot.xml")
  url-insert-file-contents("http://slashdot.org/slashdot.xml")
  mm-url-insert-file-contents("http://slashdot.org/slashdot.xml")
  mm-url-insert("http://slashdot.org/slashdot.xml" t)
  byte-code("Æ\x18ÇÈÉ!!\x19ÊŽr	qˆË\nÌ\"ˆebˆmƒ\x1e\0ÍÎ!ˆÏÐÆÌ#ƒ‡\0`ÏÑ!}ˆebˆÒÓ!ˆÔÕÖ!!\x13Ò×!ˆÕÖ!\x14ØÙ\f\"ˆÕÖ\f\"\x14ÒÚ!ˆÛÕÖ!!\x15\vÜ\fÝR\x16'Þ\x0e'\x0e(\"‰\x16)ƒq\0\x0e)A\r ˆ‚\x7f\0\x0e'\r\fß Æ¯\x05\x0e(B\x16(dbˆ~ˆ‚\x1e\0,\x0e*\x0e+ZàVƒ\f\x01Æ\x18ÇÈÉ!!\x1e,áŽr\x0e,qˆÌ\x1e-Ëâ\x0e.\x0e+\"Ì\"ˆebˆÒãÆÌ#ƒ\x02\x01ÕÖ!\x14ÔÕä!!\x13ÖyˆÒåÆÌ#ƒÕ\0ÛÕÖ!!\x15\vÜ\fÝR\x16'Þ\x0e'\x0e(\"‰\x16)ƒñ\0\x0e)A\r ˆ‚²\0\x0e'\r\fß Æ¯\x05\x0e(B\x16(‚²\0-\x0e+æ\\\x16+‚ˆ\0Ƈ" [default-enable-multibyte-characters temp-buffer nnslashdot-backslash-url description sid articles nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "Á\b!ƒ\n\0Â\b!ˆÁ‡" [temp-buffer buffer-name kill-buffer] 2)) mm-url-insert t error "Couldn't open connection to slashdot" search-forward "<story>" "</story>" re-search-forward "<title>\\([^<]+\\)</title>" mm-url-decode-entities-string match-string 1 "<url>\\([^<]+\\)</url>" string-match "sid=\\([0-9/]+\\)\\(.shtml\\|$\\)" "<comments>\\([^<]+\\)</comments>" string-to-number " (" ")" assoc current-time 0 ((byte-code "Á\b!ƒ\n\0Â\b!ˆÁ‡" [temp-buffer buffer-name kill-buffer] 2)) format "article.pl\\?sid=\\([^&]+\\).*<b>\\([^<]+\\)</b>" 2 "<b>\\([0-9]+\\)</b>" 30 gname nnslashdot-groups elem nnslashdot-group-number number temp-buffer case-fold-search nnslashdot-active-url] 5)
  nnslashdot-request-list("slashdot")
  gnus-request-list((nnslashdot "slashdot"))
  gnus-read-active-file-1((nnslashdot "slashdot") nil)
  gnus-read-active-file()
  gnus-group-get-new-news(nil)
  call-interactively(gnus-group-get-new-news)
  recursive-edit()
  byte-code("Æ\b!ˆÇ ˆÈ	!ˆ\nƒ?\0Éed\"\vVƒ4\0ebˆÊ\v¥yˆ`\x1cdbˆÊ\v¥\vZyˆ\f`|ˆ)ËcˆebˆÌÍ !ˆÎ ˆ	@Ï=ƒK\0ÐÑÒ\"ˆÓ ˆÌÔ!ˆÒÕÒ\x1d\x1e\x17\x1e\x18ÌÔ!ˆŠÖ ˆ,Õ‡" [debugger-buffer debugger-args noninteractive debugger-batch-max-lines middlestart buffer-read-only pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-output inhibit-trace] 3)
  debug(error (quit))
  url-retrieve-synchronously("http://slashdot.org/comments.pl?sid=02/01/25/212229&threshold=1&commentsort=0&mode=flat&startat=0")
  url-insert-file-contents("http://slashdot.org/comments.pl?sid=02/01/25/212229&threshold=1&commentsort=0&mode=flat&startat=0")
  mm-url-insert-file-contents("http://slashdot.org/comments.pl?sid=02/01/25/212229&threshold=1&commentsort=0&mode=flat&startat=0")
  mm-url-insert("http://slashdot.org/comments.pl?sid=02/01/25/212229&threshold=1&commentsort=0&mode=flat&startat=0" t)
  nnslashdot-retrieve-headers-1((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 ...) "Coming Soon: Ultra Wide Band (02/01/25/212229)")
  byte-code("\b?…	\0Ã	\n\"‡" [gnus-nov-is-evil articles group nnslashdot-retrieve-headers-1] 3)
  nnslashdot-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 ...) "Coming Soon: Ultra Wide Band (02/01/25/212229)" "slashdot" nil)
  gnus-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 ...) "nnslashdot:Coming Soon: Ultra Wide Band (02/01/25/212229)" nil)
  gnus-cache-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 ...) "nnslashdot:Coming Soon: Ultra Wide Band (02/01/25/212229)" nil)
  gnus-retrieve-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 ...) "nnslashdot:Coming Soon: Ultra Wide Band (02/01/25/212229)" nil)
  gnus-fetch-headers((1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 ...))
  gnus-select-newsgroup("nnslashdot:Coming Soon: Ultra Wide Band (02/01/25/212229)" nil nil)
  gnus-summary-read-group-1("nnslashdot:Coming Soon: Ultra Wide Band (02/01/25/212229)" nil nil nil nil nil)
  gnus-summary-read-group("nnslashdot:Coming Soon: Ultra Wide Band (02/01/25/212229)" nil nil nil nil nil nil)
  gnus-group-read-group(nil nil nil)
  gnus-topic-read-group(nil)
  call-interactively(gnus-topic-read-group)


Piece of strace at the time:

rt_sigaction(SIGPIPE, {0x814e35c, [], SA_RESTART|0x4000000}, {0x80b3d68, [], SA_
RESTART|0x4000000}, 8) = 0
write(12, "GET /slashdot.xml HTTP/1.1\r\nMIME"..., 693) = 693
rt_sigaction(SIGPIPE, {0x80b3d68, [], SA_RESTART|0x4000000}, {0x814e35c, [], SA_
RESTART|0x4000000}, 8) = 0
write(5, "\27\0\2\0\1\0\0\0", 8)        = 8
read(5, 0xbfffc13c, 32)                 = -1 EAGAIN (Resource temporarily unavai
lable)
select(6, [5], NULL, NULL, NULL)        = 1 (in [5])
--- SIGIO (I/O possible) ---
sigreturn()                             = ? (mask now [])
read(5, "\1\0\265`\0\0\0\0,\0\0\0\1\0\0\0\0\0\0\0\2\0\0\0\331\31"..., 32) = 32
getpid()                                = 14752
kill(14752, SIGIO)                      = 0
--- SIGIO (I/O possible) ---
ioctl(5, 0x541b, [0])                   = 0
ioctl(4, 0x541b, [0])                   = 0
sigreturn()                             = ? (mask now [])

file descriptor 5 is for X.  12 is the socket for slashdot.  This is
from the output of:

strace -p <pid> 2>&1 | grep -v '^gettimeofday'

if I don't exclude the gettimeofday call, the screen is filled with
them. That appears to be the only syscall made and it looks like a
tight loop.  The other data appears to only be housekeeping for
emacs.

Let me know if there is additional info that might be of use.
  
-- System Information
Debian Release: 3.0
Kernel Version: Linux shakti 2.4.9-xfs-lvm #1 Sun Nov 25 12:51:22 PST 2001 i686 unknown

Versions of the packages w3-el-e21 depends on:
ii  emacs21        21.1-7         The GNU Emacs editor.
ii  w3-url-e21     2001.11.08-2   URL library for use by w3-el-e21

--- Begin /etc/emacs21/site-start.d/50w3.el (modified conffile)
;;; Emacs-w3 configuration options
(setq load-path (nconc load-path (list (concat "/usr/share/"
                                               (symbol-name debian-emacs-flavor)
                                               "/site-lisp/w3-el"))))
(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3-follow-url-at-point "w3" "Find document at pt" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-show-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-follow-link "w3" "Follow a hypertext link." t)
(autoload 'w3-batch-fetch "w3" "Batch retrieval of URLs" t)
(autoload 'url-get-url-at-point "url" "Find the url under the cursor" nil)
(autoload 'url-file-attributes  "url" "File attributes of a URL" nil)
(autoload 'url-popup-info "url" "Get info on a URL" t)
(autoload 'url-retrieve   "url" "Retrieve a URL" nil)
(autoload 'url-buffer-visiting "url" "Find buffer visiting a URL." nil)
(autoload 'gopher-dispatch-object "gopher" "Fetch gopher dir" t)
;;; End of Emacs-w3 configuration options
;;; The Emacs w3 defaults are to use ssleay.  Debian now uses openssl.
;;; Thanks to andreas <andreas.voegele@nikocity.de> for reporting this fix.
(setq
 ssl-program-name (expand-file-name (concat "/usr/share/"
                                     (symbol-name debian-emacs-flavor)
                                      "/site-lisp/w3-el/w3ssl"))
 ssl-program-arguments '("s_client"
                         "-quiet"
                         "-connect" (concat host ":" service)
                         "-verify" (int-to-string ssl-certificate-verification-policy)
                         "-CApath" (expand-file-name ssl-certificate-directory))
 ssl-view-certificate-program-name ssl-program-name
 ssl-view-certificate-program-arguments '("x509" "-text" "-inform" "DER"))

--- End /etc/emacs21/site-start.d/50w3.el

-- 
-rupa