Re: WARNING: The attached message make Gnus eat all resources

[Nevin Kapur <nevin@jhu.edu>]

Simon Josefsson <jas@extundo.com> writes:

> Nevin Kapur <nevin@jhu.edu> writes:
>
>> The attached message will make Gnus eat all resources for a *long*
>> time -- I C-g'd after about a minute.  Debug on quit suggests
>> something to do with flow-fill and filladapt in turn.

[...]

> Does this fix it?

Nope.

> Fill-adapt is IMHO evil as it redefines existing elisp functions.

I turned off filladapt and I still see the bug.  Here's the backtrace
when I quite.  I can't see anything useful in it, though.

Signaling: (quit)
  move-to-left-margin()
  forward-paragraph(1)
  fill-region(3611 3701 left nosqueeze)
  (let ((fill-prefix ...) (fill-column ...) filladapt-mode) (fill-region (fill-flowed-point-at-bol) (min ... ...) (quote left) (quote nosqueeze)))
  (condition-case nil (let (... ... filladapt-mode) (fill-region ... ... ... ...)) (error nil))
  (if sig nil (condition-case nil (let ... ...) (error nil)))
  (unless sig (condition-case nil (let ... ...) (error nil)))
  (let ((quote ...) sig) (if (string= quote "") (setq quote nil)) (when (and quote ...) (save-excursion ... ...)) (while (and ... ...) (save-excursion ...) (backward-delete-char -1) (end-of-line)) (unless sig (condition-case nil ... ...)))
  (if (save-excursion (beginning-of-line) (looking-at "^\\(>*\\)\\( ?\\)")) (let (... sig) (if ... ...) (when ... ...) (while ... ... ... ...) (unless sig ...)))
  (when (save-excursion (beginning-of-line) (looking-at "^\\(>*\\)\\( ?\\)")) (let (... sig) (if ... ...) (when ... ...) (while ... ... ... ...) (unless sig ...)))
  (while (re-search-forward " $" nil t) (when (save-excursion ... ...) (let ... ... ... ... ...)))
  (save-excursion (set-buffer (or ... buffer)) (goto-char (point-min)) (while (re-search-forward " $" nil t) (when ... ...)))
  fill-flowed()
  mm-inline-text((#<buffer " *mm*<6>"> ("text/plain" (charset . "us-ascii") (format . "flowed")) nil nil nil nil nil nil))
  mm-display-inline((#<buffer " *mm*<6>"> ("text/plain" (charset . "us-ascii") (format . "flowed")) nil nil nil nil nil nil))
  mm-display-part((#<buffer " *mm*<6>"> ("text/plain" (charset . "us-ascii") (format . "flowed")) nil nil nil nil nil nil) t)
  byte-code("..." [not-attachment type ignored display beg handle string-match throw nil mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-display-p mm-inlinable-p mm-inlined-p mm-automatic-external-display-p t split-string mm-handle-media-type "/" "text" gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline -1 (set-buffer gnus-summary-buffer) ((error)) mm-display-part mm-insert-inline mm-get-part gnus-treat-article bufferp 1 text gnus-article-mime-handle-alist id move gnus-article-mime-handles gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset] 7)
  gnus-mime-display-single((#<buffer " *mm*<6>"> ("text/plain" (charset . "us-ascii") (format . "flowed")) nil nil nil nil nil nil))
  gnus-mime-display-part((#<buffer " *mm*<6>"> ("text/plain" (charset . "us-ascii") (format . "flowed")) nil nil nil nil nil nil))
  gnus-display-mime()
  gnus-article-prepare-display()
  mm-inline-message((#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil))
  mm-display-inline((#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil))
  mm-display-part((#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil) t)
  byte-code("..." [not-attachment type ignored display beg handle string-match throw nil mm-inline-override-p 4 "inline" mm-attachment-override-p mm-automatic-display-p mm-inlinable-p mm-inlined-p mm-automatic-external-display-p t split-string mm-handle-media-type "/" "text" gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline -1 (set-buffer gnus-summary-buffer) ((error)) mm-display-part mm-insert-inline mm-get-part gnus-treat-article bufferp 1 text gnus-article-mime-handle-alist id move gnus-article-mime-handles gnus-newsgroup-charset gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset] 7)
  gnus-mime-display-single((#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil))
  gnus-mime-display-part((#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil))
  mapcar(gnus-mime-display-part ((#<buffer " *mm*<2>"> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil) (#<buffer " *mm*<4>"> ("text/plain") nil nil nil nil nil nil)))
  gnus-mime-display-mixed(((#<buffer " *mm*<2>"> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil) (#<buffer " *mm*<4>"> ("text/plain") nil nil nil nil nil nil)))
  gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<2>"> ("text/plain") nil (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<3>"> ("message/rfc822") nil nil ("inline") nil nil nil) (#<buffer " *mm*<4>"> ("text/plain") nil nil nil nil nil nil)))
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(1823 nil)
  gnus-summary-display-article(1823 nil)
  gnus-summary-select-article(nil force)
  gnus-summary-show-article(nil)
  call-interactively(gnus-summary-show-article)

-Nevin