crash

I'm too stupid to know if this is xemacs or gnus. Trying to open a MIME message with a picture inside (I think, haven't succeeded in opening it yet) ... Quite repeatable. Latest CVS of both programs. Lisp backtrace follows: # bind (string c) # (unwind-protect ...) # (unwind-protect ...) # bind (temp-buffer string) mail-header-remove-comments("text/plain; charset=\"US-ASCII\"") # bind (ttoken stoken ntoken prev-value display-name mailbox c display-string parameters attribute value type subtype number encoded prev-attribute) # (unwind-protect ...) # (unwind-protect ...) # bind (temp-buffer string) mail-header-parse-content-type("text/plain; charset=\"US-ASCII\"") # (condition-case ... . ((error))) # (unwind-protect ...) # bind (ct ctl type subtype cte cd description id result) # (unwind-protect ...) # bind (no-strict-mime) mm-dissect-buffer(t) # (unwind-protect ...) # (unwind-protect ...) # bind (end parts start close-delimiter boundary ctl) mm-dissect-multipart(("multipart/mixed" (boundary . "part8_d3.21100e4.25e8bfd4_boundary"))) # bind (ct ctl type subtype cte cd description id result) # (unwind-protect ...) # bind (no-strict-mime) mm-dissect-buffer() # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # bind (gnus-article-mime-handles gnus-newsgroup-charset) # (unwind-protect ...) # (unwind-protect ...) # bind (b charset gnus-displaying-mime handles handle) mm-inline-message((#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (function type handle) mm-display-inline((#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (method type) # (unwind-protect ...) # bind (no-default handle) mm-display-part((#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil) t) # bind (mail-parse-charset mail-parse-ignored-charsets beg) byte-code("..." [ignored string-match type throw nil mm-inline-override-p handle 4 "inline" mm-attachment-override-p not-attachment mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t display split-string mm-handle-media-type "/" "text" text gnus-article-mime-handle-alist id gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline move beg -2 gnus-newsgroup-charset (set-buffer gnus-summary-buffer) ((error)) gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handles 1] 7) # (catch ignored ...) # bind (type ignored not-attachment move display text handle) gnus-mime-display-single((#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (handle) gnus-mime-display-part((#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil)) mapcar(gnus-mime-display-part ((#<buffer " *mm*<13>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handles) gnus-mime-display-mixed(((#<buffer " *mm*<13>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handle) gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<13>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<14>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (gnus-displaying-mime display e b type name handle buffer-read-only handles) # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # bind (gnus-article-mime-handles gnus-newsgroup-charset) # (unwind-protect ...) # (unwind-protect ...) # bind (b charset gnus-displaying-mime handles handle) mm-inline-message((#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (function type handle) mm-display-inline((#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (method type) # (unwind-protect ...) # bind (no-default handle) mm-display-part((#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil) t) # bind (mail-parse-charset mail-parse-ignored-charsets beg) byte-code("..." [ignored string-match type throw nil mm-inline-override-p handle 4 "inline" mm-attachment-override-p not-attachment mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t display split-string mm-handle-media-type "/" "text" text gnus-article-mime-handle-alist id gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline move beg -2 gnus-newsgroup-charset (set-buffer gnus-summary-buffer) ((error)) gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handles 1] 7) # (catch ignored ...) # bind (type ignored not-attachment move display text handle) gnus-mime-display-single((#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (handle) gnus-mime-display-part((#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil)) mapcar(gnus-mime-display-part ((#<buffer " *mm*<11>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handles) gnus-mime-display-mixed(((#<buffer " *mm*<11>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handle) gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<11>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<12>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (gnus-displaying-mime display e b type name handle buffer-read-only handles) # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # bind (gnus-article-mime-handles gnus-newsgroup-charset) # (unwind-protect ...) # (unwind-protect ...) # bind (b charset gnus-displaying-mime handles handle) mm-inline-message((#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (function type handle) mm-display-inline((#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (method type) # (unwind-protect ...) # bind (no-default handle) mm-display-part((#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil) t) # bind (mail-parse-charset mail-parse-ignored-charsets beg) byte-code("..." [ignored string-match type throw nil mm-inline-override-p handle 4 "inline" mm-attachment-override-p not-attachment mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t display split-string mm-handle-media-type "/" "text" text gnus-article-mime-handle-alist id gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline move beg -2 gnus-newsgroup-charset (set-buffer gnus-summary-buffer) ((error)) gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handles 1] 7) # (catch ignored ...) # bind (type ignored not-attachment move display text handle) gnus-mime-display-single((#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (handle) gnus-mime-display-part((#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil)) mapcar(gnus-mime-display-part ((#<buffer " *mm*<9>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handles) gnus-mime-display-mixed(((#<buffer " *mm*<9>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handle) gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<9>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<10>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (gnus-displaying-mime display e b type name handle buffer-read-only handles) # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # bind (gnus-article-mime-handles gnus-newsgroup-charset) # (unwind-protect ...) # (unwind-protect ...) # bind (b charset gnus-displaying-mime handles handle) mm-inline-message((#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (function type handle) mm-display-inline((#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (method type) # (unwind-protect ...) # bind (no-default handle) mm-display-part((#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil) t) # bind (mail-parse-charset mail-parse-ignored-charsets beg) byte-code("..." [ignored string-match type throw nil mm-inline-override-p handle 4 "inline" mm-attachment-override-p not-attachment mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t display split-string mm-handle-media-type "/" "text" text gnus-article-mime-handle-alist id gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline move beg -2 gnus-newsgroup-charset (set-buffer gnus-summary-buffer) ((error)) gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handles 1] 7) # (catch ignored ...) # bind (type ignored not-attachment move display text handle) gnus-mime-display-single((#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (handle) gnus-mime-display-part((#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil)) mapcar(gnus-mime-display-part ((#<buffer " *mm*<7>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handles) gnus-mime-display-mixed(((#<buffer " *mm*<7>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handle) gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<7>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<8>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (gnus-displaying-mime display e b type name handle buffer-read-only handles) # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # bind (gnus-article-mime-handles gnus-newsgroup-charset) # (unwind-protect ...) # (unwind-protect ...) # bind (b charset gnus-displaying-mime handles handle) mm-inline-message((#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (function type handle) mm-display-inline((#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (method type) # (unwind-protect ...) # bind (no-default handle) mm-display-part((#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil) t) # bind (mail-parse-charset mail-parse-ignored-charsets beg) byte-code("..." [ignored string-match type throw nil mm-inline-override-p handle 4 "inline" mm-attachment-override-p not-attachment mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t display split-string mm-handle-media-type "/" "text" text gnus-article-mime-handle-alist id gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline move beg -2 gnus-newsgroup-charset (set-buffer gnus-summary-buffer) ((error)) gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handles 1] 7) # (catch ignored ...) # bind (type ignored not-attachment move display text handle) gnus-mime-display-single((#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (handle) gnus-mime-display-part((#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil)) mapcar(gnus-mime-display-part ((#<buffer " *mm*<5>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handles) gnus-mime-display-mixed(((#<buffer " *mm*<5>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handle) gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<5>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<6>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (gnus-displaying-mime display e b type name handle buffer-read-only handles) # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # bind (gnus-article-mime-handles gnus-newsgroup-charset) # (unwind-protect ...) # (unwind-protect ...) # bind (b charset gnus-displaying-mime handles handle) mm-inline-message((#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (function type handle) mm-display-inline((#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (method type) # (unwind-protect ...) # bind (no-default handle) mm-display-part((#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil) t) # bind (mail-parse-charset mail-parse-ignored-charsets beg) byte-code("..." [ignored string-match type throw nil mm-inline-override-p handle 4 "inline" mm-attachment-override-p not-attachment mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t display split-string mm-handle-media-type "/" "text" text gnus-article-mime-handle-alist id gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline move beg -2 gnus-newsgroup-charset (set-buffer gnus-summary-buffer) ((error)) gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handles 1] 7) # (catch ignored ...) # bind (type ignored not-attachment move display text handle) gnus-mime-display-single((#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (handle) gnus-mime-display-part((#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil)) mapcar(gnus-mime-display-part ((#<buffer " *mm*<3>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handles) gnus-mime-display-mixed(((#<buffer " *mm*<3>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handle) gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*<3>"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<4>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (gnus-displaying-mime display e b type name handle buffer-read-only handles) # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # bind (gnus-article-mime-handles gnus-newsgroup-charset) # (unwind-protect ...) # (unwind-protect ...) # bind (b charset gnus-displaying-mime handles handle) mm-inline-message((#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (function type handle) mm-display-inline((#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (method type) # (unwind-protect ...) # bind (no-default handle) mm-display-part((#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil) t) # bind (mail-parse-charset mail-parse-ignored-charsets beg) byte-code("..." [ignored string-match type throw nil mm-inline-override-p handle 4 "inline" mm-attachment-override-p not-attachment mm-automatic-display-p mm-inlined-p mm-automatic-external-display-p t display split-string mm-handle-media-type "/" "text" text gnus-article-mime-handle-alist id gnus-unbuttonized-mime-type-p gnus-insert-mime-button gnus-article-insert-newline move beg -2 gnus-newsgroup-charset (set-buffer gnus-summary-buffer) ((error)) gnus-newsgroup-ignored-charsets mail-parse-ignored-charsets mail-parse-charset mm-display-part mm-insert-inline mm-get-part gnus-treat-article gnus-article-mime-handles 1] 7) # (catch ignored ...) # bind (type ignored not-attachment move display text handle) gnus-mime-display-single((#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil)) # bind (handle) gnus-mime-display-part((#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil)) mapcar(gnus-mime-display-part ((#<buffer " *mm*"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handles) gnus-mime-display-mixed(((#<buffer " *mm*"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (handle) gnus-mime-display-part(("multipart/mixed" (#<buffer " *mm*"> ("text/plain" ...) 7bit (lambda nil ...) nil nil nil nil) (#<buffer " *mm*<2>"> ("message/rfc822") nil nil ("inline") nil nil nil))) # bind (gnus-displaying-mime display e b type name handle buffer-read-only handles) # (unwind-protect ...) # bind (save-selected-window-window) # (unwind-protect ...) # bind (ihandles) gnus-display-mime() # bind (gnus-article-buffer buffer-read-only) gnus-article-prepare-display() # (unwind-protect ...) # bind (result group gnus-tmp-internal-hook summary-buffer gnus-article) # (unwind-protect ...) # bind (header all-headers article) gnus-article-prepare(23525 nil) # bind (all-header article) gnus-summary-display-article(23525 nil) # (unwind-protect ...) # bind (article all-headers gnus-summary-display-article-function article pseudo force all-headers) gnus-summary-select-article(nil nil pseudo) # bind (lines) gnus-summary-scroll-up(1) # bind (command-debug-status) call-interactively(gnus-summary-scroll-up) # (condition-case ... . error) # (catch top-level ...) -- Michael D. Harnois, Redeemer Lutheran Church, Washburn, IA mdharnois(a)home.com aa0bt(a)aa0bt.ampr.org God shows his contempt for wealth by the kind of person He selects to receive it. -- Austin O'Malley