Re: XEmacs/GNUs eats all memory and dies

[Reiner Steib <reinersteib+from-uce@imap.cc>]

On Tue, Mar 14 2006, Julian Stecklina wrote:

> Gnus v5.10.7
> XEmacs 21.5  (beta24) "dandelion" [Lucid] (i386--freebsd, Mule) of Sat Jan  7 2006 on dellbeast.localnet
> 200 news.gmane.org InterNetNews NNRP server INN 2.4.1 ready (posting ok).
>
> Hello,
>
> when I try to open the INBOX of my web.de IMAP account in the group
> buffer, XEmacs eats all available memory and dies, because it tries to
> build a ridiculously large list in gnus-uncompress-range. Is there any
> workaround for this?

Maybe the change below which has been installed in the development
version might help.

Simon, maybe we should also install it in v5-10 now, but choose the
method depending on some variable which should default to "old method"
in the v5-10 branch and "new method" in the trunk.  If we have enough
testing, we can default to "new method" in all versions and remove the
"old method" code.  WDYT?

,----[ lisp/ChangeLog ]
| 2006-03-03  Daniel Pittman <daniel@rimspace.net>
| 
| 	* nnimap.el (nnimap-request-update-info-internal): Optimize.
`----

--8<---------------cut here---------------start------------->8---
--- nnimap.el	21 Feb 2006 07:14:23 -0000	7.30
+++ nnimap.el	3 Mar 2006 09:33:38 -0000	7.31
@@ -1183,18 +1183,12 @@
 	  (let (seen unseen)
 	    ;; read info could contain articles marked unread by other
 	    ;; imap clients!  we correct this
-	    (setq seen (gnus-uncompress-range (gnus-info-read info))
-		  unseen (imap-search "UNSEEN UNDELETED")
-		  seen (gnus-set-difference seen unseen)
-		  ;; seen might lack articles marked as read by other
-		  ;; imap clients! we correct this
-		  seen (append seen (imap-search "SEEN"))
-		  ;; remove dupes
-		  seen (sort seen '<)
-		  seen (gnus-compress-sequence seen t)
-		  ;; we can't return '(1) since this isn't a "list of ranges",
-		  ;; and we can't return '((1)) since g-list-of-unread-articles
-		  ;; is buggy so we return '((1 . 1)).
+	    (setq unseen (gnus-compress-sequence 
+			  (imap-search "UNSEEN UNDELETED"))
+		  seen (gnus-range-difference (gnus-info-read info) unseen)
+		  seen (gnus-range-add seen 
+				       (gnus-compress-sequence 
+					(imap-search "SEEN")))
 		  seen (if (and (integerp (car seen))
 				(null (cdr seen)))
 			   (list (cons (car seen) (car seen)))
--8<---------------cut here---------------end--------------->8---

[...]
> Debugger entered--Lisp error: (quit)
>   gnus-uncompress-range(((1 . 937046050)))
>   nnimap-request-update-info-internal("INBOX" ("nnimap+web:INBOX" 3
>   ((1 . 937046050)) ((seen ...) (recent ...)) "nnimap:web"
>   ((uidvalidity . "1") (spam-contents
>   gnus-group-spam-classification-ham) (spam-process ...)
>   (spam-process-destination "mail.spam") (ham-process-destination
>   "mail.inbox"))) "web")
>   nnimap-request-group("INBOX" "web" t)
>   gnus-request-group("nnimap+web:INBOX" t)
>   gnus-select-newsgroup("nnimap+web:INBOX" nil nil)
>   gnus-summary-read-group-1("nnimap+web:INBOX" nil t nil nil nil)
>   gnus-summary-read-group("nnimap+web:INBOX" nil t nil nil nil nil)
>   gnus-group-read-group(nil t)
>   gnus-group-select-group(nil)
>   call-interactively(gnus-group-select-group)
>
> ------------------ Environment follows ------------------
[...]
> (setq gnus-secondary-select-methods '((nntp "news.gmane.org")
> 				      (nnimap "web"
> 				       (nnimap-authinfo-file "/home/blitz/.xemacs/web.auth")
> 				       (nnimap-address "imap.web.de")
> 				       (nnimap-stream ssl))
[...]

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/