🚀 go-pugleaf

newsspam5REMOVETHIS@robf.de writes:
> kosowsky@consult.pretender (Jeffrey J. Kosowsky) writes:
> > Kevin Rodgers <ihs_4664@yahoo.com> writes:
> >> Jeffrey J. Kosowsky wrote:
> >> 
> >> > However, I have now noticed another problem. If there already is
> >> > another version of the file in the temp directory with the same name,
> >> > then vm just hangs in opening the file. A better alternative might
> >> > be to first check if the stored file is
> >> > identical. If so, then just open the existing temp file, if not then
> >> > store the file with a modified file name, such as <filename>.1
> >> > In any case the current "hanging" response should be fixed, right?
> >> 
> >> Are you sure that it is actually hung (meaning you have to use C-g to
> >> get Emacs to respond to further commands) and not just doing
> >> nothing?
> >
> > Truly hung -- blank, frozen, unresponsive screen until I press C-g.
> > This is repeatable.
> 
> M-: (setq debug-on-quit t) RET
> 
> and have a look at the backtrace, this should identify the defun
> causing the hang.

This is what I got (but not sure what it means...):

Debugger entered--Lisp error: (quit)
  expand-file-name("1092672-My Document.DOC" "/tmp")
  apply(expand-file-name ("1092672-My Document.DOC" "/tmp"))
  ange-ftp-completion-hook-function(expand-file-name "1092672-My Document.DOC" "/tmp")
  expand-file-name("1092672-My Document.DOC" "/tmp")
  vm-make-tempfile-name(".DOC" "My Document.DOC")
  vm-make-tempfile(".DOC" "My Document.DOC")
  (setq tempfile (vm-make-tempfile suffix basename))
  (cond ((or ... ...) (cond ... ...) (setq suffix ... suffix ...) (setq basename ...) (setq tempfile ...) (vm-register-message-garbage-files ...) (let ... ... ... ... ...)))
  (if (and (processp process) (eq ... ...)) t (cond (... ... ... ... ... ... ...)) (or (cdr program-list) (setq tempfile ...)) (let (... ...) (while p ... ... ...)) (message "Launching %s..." (mapconcat ... program-list " ")) (setq process (if ... ... ...)) (process-kill-without-query process t) (message "Launching %s... done" (mapconcat ... program-list " ")) (if vm-mime-delete-viewer-processes (vm-register-message-garbage ... process)) (put (vm-mm-layout-cache layout) (quote vm-mime-display-external-generic) (list process tempfile)))
  (let ((program-list ...) (buffer-read-only nil) start (coding-system-for-read ...) (coding-system-for-write ...) (append-file t) process tempfile cache end suffix basename) (setq cache (get ... ...) process (nth 0 cache) tempfile (nth 1 cache)) (if (and ... ...) t (cond ...) (or ... ...) (let ... ...) (message "Launching %s..." ...) (setq process ...) (process-kill-without-query process t) (message "Launching %s... done" ...) (if vm-mime-delete-viewer-processes ...) (put ... ... ...)))
  vm-mime-display-external-generic([("application/msword" "name=My Document.DOC") ("application/msword" "name=\"My Document.DOC\"") "base64" nil nil ("attachment" "filename=My Document.DOC") ("attachment" "filename=\"My Document.DOC\"") #<marker at 11750644 in Inbox> #<marker at 11750839 in Inbox> #<marker at 11750840 in Inbox> #<marker at 11770208 in Inbox> nil <<c>> <<m>> nil nil nil])
  (and (vm-mime-can-display-external type) (vm-mime-display-external-generic layout))
  (cond ((and ... ...)) ((and ... ...)) ((vm-mime-types-match "multipart" type) (or ... ...)) ((and ... ...) (and extent ...)) ((and ... ... ...) (if extent ...) (vm-decode-mime-layout new-layout)) (t (and extent ...) (if ... ... ...)))
  (progn (if (not ...) (progn ... ...)) (setq type (downcase ...) type-no-subtype (car ...)) (cond (... ... ... ...)) (cond (...) (...) (... ...) (... ...) (... ... ...) (t ... ...)) (and extent (vm-mime-delete-button-maybe extent)))
  (unwind-protect (progn (if ... ...) (setq type ... type-no-subtype ...) (cond ...) (cond ... ... ... ... ... ...) (and extent ...)) (set-buffer-modified-p modified))
  (let ((modified ...) new-layout file type type2 type-no-subtype (extent nil)) (unwind-protect (progn ... ... ... ... ...) (set-buffer-modified-p modified)))
  vm-decode-mime-layout(#<overlay from 20039 to 20116 in Inbox Presentation> t)
  (let ((vm-auto-displayed-mime-content-types t) (vm-auto-displayed-mime-content-type-exceptions nil)) (vm-decode-mime-layout layout t))
  (save-excursion (let (... ...) (vm-decode-mime-layout layout t)))
  vm-mime-display-generic(#<overlay from 20039 to 20116 in Inbox Presentation>)
  vm-mouse-popup-or-select((mouse-2 (#<window 81 on *Backtrace*> 5755 (322 . 269) 3335810)))
  vm-mouse-button-2((mouse-2 (#<window 81 on *Backtrace*> 5755 (322 . 269) 3335810)))
  call-interactively(vm-mouse-button-2)