[Mew-dist 17618] Re: double SMTP fails?

[Shuichi KITAGUCHI]

> > 曖昧な表現ですが「大きい」添付ファイルを付けたメッセージを C-cC-c で送
> > 出した直後に別のメッセージを書いて C-cC-c したところ前の「大きい」メッ
> > セージがまだ SMTP で送っている最中だと２発目は送出に失敗するのみならず
> > 紛失してしまいました。
> 
> 考えられる可能性をあたってみましたが、再現できません。
> 
> このような状況では、2 番目のメールは +queue に入るよう作られています。
> 実際実験したら、ちゃんと +queue に入りました。
> 
> もし、再現できる手順が分ったら教えて下さい。

ちょうどこれではないのですが、問題がありました。

1 通目を +draft から C-cC-c で送信中に 2 通目を C-cC-c で送信すると、
正常に +queue に入ります。しかし、その後 Summary から C-cC-c で +queue
を flush しようとすると添付の backtrace が取られます(C-cC-c を押した
時だけではなく、送信自体ができなくなっている模様)。


--
Shuichi Kitaguchi // ki at example.com

Signaling: (wrong-type-argument arrayp nil)
  aset(nil 11 nil)
  (cond ((stringp arg) (aset ... 11 value)) ((vectorp arg) (aset arg 11 value)))
  mew-smtp-set-server("mew-smtp-info-hh.iij4u.or.jp" nil)
  (let* ((work ...) (info ...) (server ...) (port ...) (ssh-server ...)) (rename-file file work (quote override)) (mew-frwlet mew-cs-text-for-read mew-cs-dummy (set-buffer ...)) (set (intern pnm) (mew-lisp-load info)) (mew-smtp-set-server pnm server) (mew-smtp-set-port pnm port) (mew-smtp-set-ssh-server pnm ssh-server) (mew-smtp-set-recipients pnm (mew-smtp-get-orig-recipients pnm)) t)
  (progn (let* (... ... ... ... ...) (rename-file file work ...) (mew-frwlet mew-cs-text-for-read mew-cs-dummy ...) (set ... ...) (mew-smtp-set-server pnm server) (mew-smtp-set-port pnm port) (mew-smtp-set-ssh-server pnm ssh-server) (mew-smtp-set-recipients pnm ...) t))
  (if (file-readable-p file) (progn (let* ... ... ... ... ... ... ... ... t)))
  (when (file-readable-p file) (let* (... ... ... ... ...) (rename-file file work ...) (mew-frwlet mew-cs-text-for-read mew-cs-dummy ...) (set ... ...) (mew-smtp-set-server pnm server) (mew-smtp-set-port pnm port) (mew-smtp-set-ssh-server pnm ssh-server) (mew-smtp-set-recipients pnm ...) t))
  mew-smtp-insert-file("mew-smtp-info-hh.iij4u.or.jp" "c:/home/kit/Mail/queue/1")
  (if (mew-smtp-insert-file pnm msg) (setq flushp t))
  (let* ((msg ...) flushp) (setq msgs (cdr msgs)) (if (mew-smtp-insert-file pnm msg) (setq flushp t)) (catch (quote loop) (while ... ... ... ...)) (cons flushp msgs))
  (progn (let* (... flushp) (setq msgs ...) (if ... ...) (catch ... ...) (cons flushp msgs)))
  (if msgs (progn (let* ... ... ... ... ...)))
  (when msgs (let* (... flushp) (setq msgs ...) (if ... ...) (catch ... ...) (cons flushp msgs)))
  mew-smtp-get-next("mew-smtp-info-hh.iij4u.or.jp" ("c:/home/kit/Mail/queue/1"))
  (setq flushp-msgs (mew-smtp-get-next pnm msgs))
  (cond ((mew-smtp-get-messages pnm) (message "%s is being flushed" qfld)) ((mew-smtp-get-lock pnm) (message "SMTP connection for %s is locked" qfld)) (t (mew-summary-clean-folder-cache qfld) (setq msgs ...) (setq flushp-msgs ...) (setq flushp ...) (mew-smtp-set-case pnm case) (mew-smtp-set-server pnm server) (mew-smtp-set-port pnm ...) (mew-smtp-set-ssh-server pnm ssh-server) (mew-smtp-set-queue pnm qfld) (mew-smtp-set-messages pnm ...) (mew-smtp-set-auth pnm ...) (mew-smtp-set-auth-list pnm ...) (mew-smtp-set-user pnm ...) (mew-smtp-set-helo-domain pnm ...) (mew-smtp-set-sender pnm nil) (if ... ...) (when flushp ... ...)))
  (let* ((server ...) (ssh-server ...) (pnm ...) msgs flushp-msgs flushp) (cond (... ...) (... ...) (t ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (run-hooks (quote mew-smtp-flush-hook)))
  mew-smtp-flush-queue("+queue" nil)
  (if (and mew-ask-flush-queue (not ...)) (message "The queue is not flushed.") (mew-smtp-flush-queue qfld case))
  (let ((qfld ...) case) (if arg (setq case ...) (setq case mew-case-output)) (if (mew-folder-queuep qfld) (mew-window-configure ...) (setq qfld ...)) (if (and mew-ask-flush-queue ...) (message "The queue is not flushed.") (mew-smtp-flush-queue qfld case)))
  mew-summary-send-message(nil)
* call-interactively(mew-summary-send-message)