From xemacs-m  Tue Jan 28 19:08:51 1997
Received: from mecca.spd.louisville.edu (mecca.spd.louisville.edu [136.165.40.148])
          by xemacs.org (8.8.4/8.8.4) with SMTP
	  id TAA28350 for <xemacs-beta@xemacs.org>; Tue, 28 Jan 1997 19:08:50 -0600 (CST)
Received: (from tjchol01@localhost) by mecca.spd.louisville.edu (950413.SGI.8.6.12/950213.SGI.AUTOCF) id UAA12327; Tue, 28 Jan 1997 20:08:52 -0500
Date: Tue, 28 Jan 1997 20:08:52 -0500
Message-Id: <199701290108.UAA12327@mecca.spd.louisville.edu>
From: "Tomasz J. Cholewo" <tjchol01@mecca.spd.louisville.edu>
To: xemacs-beta@xemacs.org
Subject: [bug report] mime-viewer on a tty in 20.0-b92

Hi,

A recent message on this list triggered a bug in mime-viewer while I was
reading mail on a tty in 20.0-b92.  After `xemacs -q', `(require
'mime-setup)' and `(require 'tm-vm)' an attempt to visit a folder in
which this message is stored causes the following backtrace:

Signaling: (error "Not an X device" #<tty-device on "stdio" 0x83b>)
  specifier-instance(#<image-specifier global=((... . ...) (... . ...) (... . ...)) fallback=((nil . ...)) 0xc2a> nil nil nil)
  glyph-property-instance(#<glyph (buffer) #<image-specifier global=(... ... ...) fallback=(...) 0xc2a>0xc29> image nil nil nil)
  glyph-image-instance(#<glyph (buffer) #<image-specifier global=(... ... ...) fallback=(...) 0xc2a>0xc29>)
  mime-preview/filter-for-inline-image("image/gif" nil "base64")
  mime-preview/display-body(5772 26464 (3) [mime::content-info nil 63 26506 "multipart/mixed" (("boundary" . "Multipart_Tue_Jan_28_18:12:42_1997-1")) "7bit" ([mime::content-info ... 1630 1895 "text/plain" ... "7bit" nil] [mime::content-info ... 1935 4611 "application/octet-stream" ... "7bit" nil] [mime::content-info ... 4651 5619 "text/html" ... "7bit" nil] [mime::content-info ... 5659 26464 "image/gif" nil "base64" nil])] "image/gif" nil "test-case.gif" "base64")
  mime-preview/display-content([mime::content-info (3) 5659 26464 "image/gif" nil "base64" nil] [mime::content-info nil 63 26506 "multipart/mixed" (("boundary" . "Multipart_Tue_Jan_28_18:12:42_1997-1")) "7bit" ([mime::content-info ... 1630 1895 "text/plain" ... "7bit" nil] [mime::content-info ... 1935 4611 "application/octet-stream" ... "7bit" nil] [mime::content-info ... 4651 5619 "text/html" ... "7bit" nil] [mime::content-info ... 5659 26464 "image/gif" nil "base64" nil])] #<buffer "xemacs-beta"> "*Preview-xemacs-beta*")
  mime-viewer/make-preview-buffer(nil)
  mime-viewer/setup-buffer(nil nil nil nil)
  mime/viewer-mode(nil nil nil nil nil #<keymap 80 entries 0x903>)
  byte-code("..." [vm-widen-page vm-message-pointer 0 nil mime/viewer-mode vm-mode-map vm-highlighted-header-regexp vm-xemacs-p vm-use-lucid-highlighting vm-highlight-headers tm-vm/use-original-url-button vm-use-menus vm-menu-support-possible-p vm-energize-urls vm-energize-headers search-forward "\n\n" t] 7)
  tm-vm/preview-current-message()
  run-hooks(vm-select-message-hook)
  vm-run-message-hook([[#<marker at 1 in xemacs-beta> #<marker at 63 in xemacs-beta> #<marker at 1269 in xemacs-beta> #<marker at 1591 in xemacs-beta> #<marker at 26506 in xemacs-beta> #<marker at 26507 in xemacs-beta>] ["1" "  1" nil nil nil <<>> <-- From_ "1" #<buffer "xemacs-beta"> nil nil nil nil nil nil] [nil nil nil nil nil nil nil nil nil] [nil "" "28" "January" "1997" "18:12:42" "-0500" "Christopher Davis" "ckd@loiosh.kei.com" nil "400" "redisplay bugs in 20.0b92" "^Resent-Date:" nil nil "1" nil nil nil nil] [nil <v> t nil nil]] vm-select-message-hook)
  vm-preview-current-message()
  byte-code("..." [bufferp folder nil preserve-auto-save-file totals-blurb first-time folder-buffer full-startup expand-file-name vm-primary-inbox vm-folder-directory file file-directory-p error "%s is a directory" vm-get-file-buffer default-directory t enable-local-variables inhibit-local-variables vm-unsaved-message "Reading %s..." find-file-noselect item vm-folder-history "Reading %s... done" vm-check-for-killed-summary buffer-modified-p 0 vm-messages-not-on-disk major-mode vm-mode buffer-file-name file-newer-than-file-p make-auto-save-file-name read-only default-value vm-folder-read-only buffer-read-only fboundp buffer-disable-undo buffer-flush-undo x abbrev-mode auto-fill-mode vm-mode-internal vm-assimilate-new-messages vm-gobble-visible-header-variables vm-gobble-bookmark vm-gobble-summary ...] 7)
  vm("/usr1/tjchol01/mail/xemacs-beta" nil)
  #<compiled-function (from "vm-startup.elc") (folder &optional read-only) "...(67)" [vm-session-initialization vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary folder vm-last-visit-folder vm-folder-directory default-directory expand-file-name vm read-only] 3 "Visit a mail file.\nVM will parse and present its messages to you in the usual way.\n\nFirst arg FOLDER specifies the mail file to visit.  When this\ncommand is called interactively the file name is read from the\nminibuffer.\n\nPrefix arg or optional second arg READ-ONLY non-nil indicates\nthat the folder should be considered read only.  No attribute\nchanges, messages additions or deletions will be allowed in the\nvisited folder." (save-excursion (vm-session-initialization) (vm-select-folder-buffer) (let ... ...))>("~/mail/xemacs-beta" nil)
  call-interactively(vm-visit-folder)


Tom

