[mew-int 00722] BUG: Problem with mew-smtp-command-done and MIME messages

[Brian Wallis]

- Mandrake linux 8.1
- xemacs 21.4.4
- mew 2.1 and 2.2rc3

I have a problem with sending of some mime messages, I have not been
able to isolate exactly what in the messages is causing the fault, it
always seems to be one with one or more file attachements. It does not
seem to be a specific mime type that is causing it. (It may be timing
related)

The problem manifests itself with an error "(wrong-type-argument
stringp nil" in the function file-name-nondirectory (full stack trace
below) 

The problem can be traced back to a call to mew-smtp-command-done in
mew-smtp.el which calls (buffer-file-name) which sometimes returns nil
(indicating that the current buffer is not associated with a file).

I printed what the current buffer and file is from within that
function and then checked the buffer after a failure, there was a file
associated, but there was not at the time of the call to
mew-smtp-command-done (as was indicated by the diagnostic).

After the failure, the draft file is left in the draft folder, not
deleted as is usual. The file copy (Fcc) is also not created.

After this failure has occured I have to exit emacs and restart to be
able to send or receive email again.

Any suggestions as to a fix?

many thanks,
brian wallis...

Signaling: (wrong-type-argument stringp nil)
  file-name-nondirectory(nil)
  file-name-sans-extension(nil)
  mew-queue-backup(nil)
  mew-smtp-command-done(#<network connection "mew-smtp-info-localhost" ("smtp" . "localhost") state:run> "mew-smtp-info-localhost")
  mew-smtp-filter(#<network connection "mew-smtp-info-localhost" ("smtp" . "localhost") state:run> "250 Ok: queued as 639E23841C
\n")
  dispatch-non-command-events()
  progress-feedback-dispatch-non-command-events()
  raw-append-progress-feedback("Fontifying +draft/10... (syntactically)" 5 #<x-frame "emacs" 0x2108>)
  append-progress-feedback(font-lock "Fontifying +draft/10... (syntactically)" 5 nil)
  display-progress-feedback(font-lock "Fontifying +draft/10... (syntactically)" 5)
  progress-feedback-with-label(font-lock "Fontifying %s... (syntactically)" 5 "+draft/10")
  font-lock-fontify-syntactically-region(1 8123 nil)
  font-lock-default-fontify-region(1 8123 nil)
  font-lock-fontify-region(1 8123)
  #<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3>(1 8123 t)
  map-range-table(#<compiled-function (beg end val) "...(5)" [end beg font-lock-fontify-region] 3> #s(range-table data ((1 8123) t)))
  #<compiled-function (buffer dummy) "...(49)" [font-lock-pending-buffer-table zmacs-region-stays font-lock-range-table buffer remhash buffer-live-p clear-range-table map-extents #<compiled-function ... "...(32)" ... 5> nil font-lock-pending t put-text-property map-range-table #<compiled-function ... "...(5)" ... 3>] 9>(#<buffer "+draft/10"> t)
  maphash(#<compiled-function (buffer dummy) "...(49)" [font-lock-pending-buffer-table zmacs-region-stays font-lock-range-table buffer remhash buffer-live-p clear-range-table map-extents #<compiled-function ... "...(32)" ... 5> nil font-lock-pending t put-text-property map-range-table #<compiled-function ... "...(5)" ... 3>] 9> #<hash-table size 0/29 weakness key 0x2465>)
  font-lock-fontify-pending-extents()
  byte-code("..." [font-lock-pending-buffer-table hash-table-count 0 font-lock-fontify-pending-extents] 2)
  font-lock-pre-idle-hook()