[mew-int 01650] Re: Strange error in sending mail

[CHOI Junho]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-int 01647] Re: Strange error in sending mail
Date: Thu, 20 Nov 2003 13:46:54 +0900 (JST)

> 
> Please send me a trace.
>
> --Kazu

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match(".wrk$" nil)
  (not (string-match (concat mew-queue-work-suffix "$") work))
  (if (not (string-match ... work)) (setq orig (mew-folder-new-message qfld)) (setq orig (file-name-sans-extension work)) (setq iwrk (concat orig mew-queue-info-suffix mew-queue-work-suffix)) (mew-delete-file iwrk) (if (file-exists-p orig) (setq orig ...)))
  (let (orig info iwrk) (if (not ...) (setq orig ...) (setq orig ...) (setq iwrk ...) (mew-delete-file iwrk) (if ... ...)) (rename-file work orig (quote override)) (unless mew-use-nfs-hack (mew-set-file-modes orig)) (setq info (concat orig mew-queue-info-suffix)) (list orig info))
  mew-queue-enqueue(nil "+queue")
  (setq file-info (mew-queue-enqueue work qfld))
  (let* ((pnm ...) (qfld ...) (oname ...) (work ...) file-info file info nname) (mew-local-folder-check qfld) (setq file-info (mew-queue-enqueue work qfld)) (setq file (nth 0 file-info) info (nth 1 file-info)) (setq file (file-name-nondirectory file)) (setq nname (mew-concat-folder qfld file)) (if (mew-draft-p) (mew-smtp-set-case pnm ...)) (mew-smtp-set-recipients pnm (mew-smtp-get-orig-recipients pnm)) (let* (... ... ...) (while ... ... ...) (mew-lisp-save info data)) (mew-remove-buffer (current-buffer)) (message "%s has been queued to %s (%s)" oname nname (or ... err)) (mew-touch-folder qfld) file)
  mew-smtp-queue(nil "250-mail.wdb.co.kr\n250-PIPELINING\n250-SIZE 51200000\n250-ETRN\n250-XVERP\n250 8BITMIME.")
  (cond (next (mew-smtp-set-status pnm next) (setq func ...) (and func ...) (mew-smtp-set-string pnm nil)) (t (if ... ... ... ...) (mew-smtp-queue case str) (mew-smtp-set-error pnm str) (mew-smtp-command-quit2 process pnm)))
  (cond ((and ... ...) (setq code ...) (setq next ...) (cond ... ...)) (t nil))
  (let* ((pnm ...) (case ...) (status ...) (str ...) (buf ...) next func code) (mew-smtp-debug (upcase status) string) (if (and buf ...) (set-buffer buf)) (mew-smtp-set-string pnm str) (cond (... ... ... ...) (t nil)))
  mew-smtp-filter(#<process mew-smtp-info-mail.wdb.co.kr> "250-mail.wdb.co.kr\n250-PIPELINING\n250-SIZE 51200000\n250-ETRN\n250-XVERP\n250 8BITMIME\n")


--
CHOI Junho <http://www.kr.FreeBSD.org/~cjh>     KFUG <cjh at kr.FreeBSD.org>
FreeBSD Project <cjh at FreeBSD.org>        Web Data Bank <cjh at wdb.co.kr>
Key fingerprint = 1369 7374 A45F F41A F3C0  07E3 4A01 C020 E602 60F5