[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Diagnosing error after sending


On Wed, May 7, 2014 at 11:18 PM, Juliusz Chroboczek <jch@pps.univ-paris-diderot.fr> wrote:
> Can someone advise me how to diagnose the problem?

M-x set-variable RET debug-on-error RET t RET

-- Juliusz


Hi Juliusz,

thanks for your reply. I actually already did, but replied only to Erik instead of the whole list. The backtrace is attached but doesn't help me much. I'm happy for any hints.

Best
Sebastian


Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  #[(folder) "\303\211\304\n\305H\306N	\"\307NH*T\207" [folder slot entity max-number luna-class-find-member 0 luna-class luna-slot-index] 5]([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil])
  apply(#[(folder) "\303\211\304\n\305H\306N	\"\307NH*T\207" [folder slot entity max-number luna-class-find-member 0 luna-class luna-slot-index] 5] [elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil])
  (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments))
  (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method (quote luna-method-qualifier)) :around)) t))
  (and luna-next-methods (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method (quote luna-method-qualifier)) :around)) t)))
  (while (and luna-next-methods (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method (quote luna-method-qualifier)) :around)) t))))
  (let (luna-current-method luna-previous-return-value) (while (and luna-next-methods (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods ...))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method ...) :around)) t)))) luna-previous-return-value)
  luna-call-next-method()
  (let* ((class (aref entity 0)) (cache (get message (quote luna-method-cache))) (sym (intern-soft (symbol-name class) cache)) luna-next-methods) (if sym (setq luna-next-methods (symbol-value sym)) (setq luna-next-methods (luna-class-find-functions (get (aref entity 0) (quote luna-class)) message)) (set (intern (symbol-name class) cache) luna-next-methods)) (luna-call-next-method))
  luna-apply-generic([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil] elmo-folder-next-message-number [elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil])
  elmo-folder-next-message-number([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil])
  #[(folder &optional flags number return-number) "\306Hp\307!\310\211\310\311\312\217-\207" [folder filename dst-buf number src-buf basedir 16 elmo-folder-next-message-number nil (byte-code "\306\307!rq\210\310\216\311	!pr\fq\210\312ed#\210)\313\314ed\n\315\316%\210)\317\n\320\321\322\n!P	\"\"\210\323\324 #\210\203E\202F\325+\207" [temp-buffer basedir filename dst-buf src-buf coding-system-for-write generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) elmo-maildir-temporal-filename copy-to-buffer binary write-region nil no-msg elmo-maildir-move-file expand-file-name "new/" file-name-nondirectory elmo-folder-preserve-flags elmo-msgdb-get-message-id-from-buffer t folder flags return-number number] 6) ((error))] 5]([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil] (read) nil nil)
  apply(#[(folder &optional flags number return-number) "\306Hp\307!\310\211\310\311\312\217-\207" [folder filename dst-buf number src-buf basedir 16 elmo-folder-next-message-number nil (byte-code "\306\307!rq\210\310\216\311	!pr\fq\210\312ed#\210)\313\314ed\n\315\316%\210)\317\n\320\321\322\n!P	\"\"\210\323\324 #\210\203E\202F\325+\207" [temp-buffer basedir filename dst-buf src-buf coding-system-for-write generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [temp-buffer buffer-name kill-buffer] 2)) elmo-maildir-temporal-filename copy-to-buffer binary write-region nil no-msg elmo-maildir-move-file expand-file-name "new/" file-name-nondirectory elmo-folder-preserve-flags elmo-msgdb-get-message-id-from-buffer t folder flags return-number number] 6) ((error))] 5] ([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil] (read) nil nil))
  (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments))
  (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method (quote luna-method-qualifier)) :around)) t))
  (and luna-next-methods (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method (quote luna-method-qualifier)) :around)) t)))
  (while (and luna-next-methods (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods (cdr luna-next-methods)))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method (quote luna-method-qualifier)) :around)) t))))
  (let (luna-current-method luna-previous-return-value) (while (and luna-next-methods (progn (setq luna-current-method (car-safe (prog1 luna-next-methods (setq luna-next-methods ...))) luna-previous-return-value (apply luna-current-method luna-current-method-arguments)) (if (symbolp luna-current-method) (not (eq (get luna-current-method ...) :around)) t)))) luna-previous-return-value)
  luna-call-next-method()
  (let* ((class (aref entity 0)) (cache (get message (quote luna-method-cache))) (sym (intern-soft (symbol-name class) cache)) luna-next-methods) (if sym (setq luna-next-methods (symbol-value sym)) (setq luna-next-methods (luna-class-find-functions (get (aref entity 0) (quote luna-class)) message)) (set (intern (symbol-name class) cache) luna-next-methods)) (luna-call-next-method))
  luna-apply-generic([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil] elmo-folder-append-buffer [elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil] (read) nil nil)
  elmo-folder-append-buffer([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".univie/INBOX.Sent" "." nil nil nil nil t nil nil x-ctext nil nil nil "/home/sebhofer/Mail/univie/INBOX.Sent" nil nil nil] (read))
  (if (elmo-folder-append-buffer (wl-folder-get-elmo-folder (eword-decode-string (car fcc-list))) (and wl-fcc-force-as-read (quote (read)))) (wl-draft-write-sendlog (quote ok) (quote fcc) nil (car fcc-list) id) (wl-draft-write-sendlog (quote failed) (quote fcc) nil (car fcc-list) id))
  (while fcc-list (if (elmo-folder-append-buffer (wl-folder-get-elmo-folder (eword-decode-string (car fcc-list))) (and wl-fcc-force-as-read (quote (read)))) (wl-draft-write-sendlog (quote ok) (quote fcc) nil (car fcc-list) id) (wl-draft-write-sendlog (quote failed) (quote fcc) nil (car fcc-list) id)) (if (and wl-draft-fcc-append-read-folder-history (boundp (quote wl-read-folder-history))) (or (equal (car fcc-list) (car wl-read-folder-history)) (setq wl-read-folder-history (append (list (car fcc-list)) wl-read-folder-history)))) (setq fcc-list (cdr fcc-list)))
  (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (while fcc-list (if (elmo-folder-append-buffer (wl-folder-get-elmo-folder (eword-decode-string (car fcc-list))) (and wl-fcc-force-as-read (quote (read)))) (wl-draft-write-sendlog (quote ok) (quote fcc) nil (car fcc-list) id) (wl-draft-write-sendlog (quote failed) (quote fcc) nil (car fcc-list) id)) (if (and wl-draft-fcc-append-read-folder-history (boundp (quote wl-read-folder-history))) (or (equal (car fcc-list) (car wl-read-folder-history)) (setq wl-read-folder-history (append (list (car fcc-list)) wl-read-folder-history)))) (setq fcc-list (cdr fcc-list))))
  (progn (insert-buffer-substring send-mail-buffer 1 header-end) (wl-draft-insert-required-fields t) (goto-char (point-max)) (insert-buffer-substring send-mail-buffer header-end) (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (while fcc-list (if (elmo-folder-append-buffer (wl-folder-get-elmo-folder (eword-decode-string (car fcc-list))) (and wl-fcc-force-as-read (quote (read)))) (wl-draft-write-sendlog (quote ok) (quote fcc) nil (car fcc-list) id) (wl-draft-write-sendlog (quote failed) (quote fcc) nil (car fcc-list) id)) (if (and wl-draft-fcc-append-read-folder-history (boundp (quote wl-read-folder-history))) (or (equal (car fcc-list) (car wl-read-folder-history)) (setq wl-read-folder-history (append (list ...) wl-read-folder-history)))) (setq fcc-list (cdr fcc-list)))))
  (unwind-protect (progn (insert-buffer-substring send-mail-buffer 1 header-end) (wl-draft-insert-required-fields t) (goto-char (point-max)) (insert-buffer-substring send-mail-buffer header-end) (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (while fcc-list (if (elmo-folder-append-buffer (wl-folder-get-elmo-folder (eword-decode-string ...)) (and wl-fcc-force-as-read (quote ...))) (wl-draft-write-sendlog (quote ok) (quote fcc) nil (car fcc-list) id) (wl-draft-write-sendlog (quote failed) (quote fcc) nil (car fcc-list) id)) (if (and wl-draft-fcc-append-read-folder-history (boundp (quote wl-read-folder-history))) (or (equal (car fcc-list) (car wl-read-folder-history)) (setq wl-read-folder-history (append ... wl-read-folder-history)))) (setq fcc-list (cdr fcc-list))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-buffer-substring send-mail-buffer 1 header-end) (wl-draft-insert-required-fields t) (goto-char (point-max)) (insert-buffer-substring send-mail-buffer header-end) (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (while fcc-list (if (elmo-folder-append-buffer (wl-folder-get-elmo-folder ...) (and wl-fcc-force-as-read ...)) (wl-draft-write-sendlog (quote ok) (quote fcc) nil (car fcc-list) id) (wl-draft-write-sendlog (quote failed) (quote fcc) nil (car fcc-list) id)) (if (and wl-draft-fcc-append-read-folder-history (boundp ...)) (or (equal ... ...) (setq wl-read-folder-history ...))) (setq fcc-list (cdr fcc-list))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-buffer-substring send-mail-buffer 1 header-end) (wl-draft-insert-required-fields t) (goto-char (point-max)) (insert-buffer-substring send-mail-buffer header-end) (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (while fcc-list (if (elmo-folder-append-buffer ... ...) (wl-draft-write-sendlog ... ... nil ... id) (wl-draft-write-sendlog ... ... nil ... id)) (if (and wl-draft-fcc-append-read-folder-history ...) (or ... ...)) (setq fcc-list (cdr fcc-list))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (let ((send-mail-buffer (current-buffer)) (case-fold-search t) beg end) (or (markerp header-end) (error "HEADER-END must be a marker")) (if fcc-list nil (setq fcc-list (wl-draft-get-fcc-list header-end))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-buffer-substring send-mail-buffer 1 header-end) (wl-draft-insert-required-fields t) (goto-char (point-max)) (insert-buffer-substring send-mail-buffer header-end) (let ((id ...) (elmo-enable-disconnected-operation t)) (while fcc-list (if ... ... ...) (if ... ...) (setq fcc-list ...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  wl-draft-do-fcc(#<marker at 484 in  *wl-draft-sending-buffer*> (".univie/INBOX.Sent"))
  (progn (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list) (setq wl-draft-fcc-list nil))
  (if (and sent-via wl-draft-fcc-list) (progn (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list) (setq wl-draft-fcc-list nil)))
  (let* ((status (wl-draft-sent-message-results)) (unplugged-via (car status)) (sent-via (nth 1 status))) (if (and sent-via wl-draft-fcc-list) (progn (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list) (setq wl-draft-fcc-list nil))) (if wl-draft-use-cache (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (elmo-file-cache-save (elmo-file-cache-get-path id) nil))) (if (and unplugged-via wl-sent-message-modified) (progn (if wl-draft-enable-queuing (progn (wl-draft-queue-append wl-sent-message-via) (setq wl-sent-message-modified (quote requeue))) (error "Unplugged")))) (if wl-draft-verbose-send (progn (if (and unplugged-via sent-via) (progn (setq wl-draft-verbose-msg (format "Sending%s and Queuing%s..." sent-via unplugged-via)) (message "%sdone" wl-draft-verbose-msg)) (if mes-string (message "%s%s" mes-string (if sent-via "done" "failed")))))))
  (unwind-protect (progn (if (and (wl-message-mail-p) (not (eq (nth 1 (assq ... wl-sent-message-via)) (quote sent)))) (if (or (not (or wl-draft-force-queuing wl-draft-force-queuing-mail)) (memq (quote mail) wl-sent-message-queued)) (progn (setq mime-bcc (wl-draft-mime-bcc-field)) (funcall wl-draft-send-mail-function) (if (not (zerop ...)) (progn (wl-draft-do-mime-bcc mime-bcc)))) (setq wl-sent-message-queued (cons (quote mail) wl-sent-message-queued)) (let ((element (assq ... wl-sent-message-via))) (if element (if (eq ... ...) nil (setcdr element ...) (setq wl-sent-message-modified t)) (setq wl-sent-message-via (cons ... wl-sent-message-via)) (setq wl-sent-message-modified t))))) (if (and (wl-message-news-p) (not (eq (nth 1 (assq ... wl-sent-message-via)) (quote sent))) (not (wl-message-field-exists-p "Resent-to"))) (if (or (not (or wl-draft-force-queuing wl-draft-force-queuing-news)) (memq (quote news) wl-sent-message-queued)) (funcall wl-draft-send-news-function) (setq wl-sent-message-queued (cons (quote news) wl-sent-message-queued)) (let ((element (assq ... wl-sent-message-via))) (if element (if (eq ... ...) nil (setcdr element ...) (setq wl-sent-message-modified t)) (setq wl-sent-message-via (cons ... wl-sent-message-via)) (setq wl-sent-message-modified t)))))) (let* ((status (wl-draft-sent-message-results)) (unplugged-via (car status)) (sent-via (nth 1 status))) (if (and sent-via wl-draft-fcc-list) (progn (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list) (setq wl-draft-fcc-list nil))) (if wl-draft-use-cache (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (elmo-file-cache-save (elmo-file-cache-get-path id) nil))) (if (and unplugged-via wl-sent-message-modified) (progn (if wl-draft-enable-queuing (progn (wl-draft-queue-append wl-sent-message-via) (setq wl-sent-message-modified (quote requeue))) (error "Unplugged")))) (if wl-draft-verbose-send (progn (if (and unplugged-via sent-via) (progn (setq wl-draft-verbose-msg (format "Sending%s and Queuing%s..." sent-via unplugged-via)) (message "%sdone" wl-draft-verbose-msg)) (if mes-string (message "%s%s" mes-string (if sent-via "done" "failed"))))))))
  (let (delimline mime-bcc) (if (and wl-draft-verbose-send mes-string) (message "%s" mes-string)) (setq delimline (wl-draft-get-header-delimiter t)) (if wl-draft-fcc-list nil (setq wl-draft-fcc-list (wl-draft-get-fcc-list delimline))) (setq wl-sent-message-modified nil) (unwind-protect (progn (if (and (wl-message-mail-p) (not (eq (nth 1 ...) (quote sent)))) (if (or (not (or wl-draft-force-queuing wl-draft-force-queuing-mail)) (memq (quote mail) wl-sent-message-queued)) (progn (setq mime-bcc (wl-draft-mime-bcc-field)) (funcall wl-draft-send-mail-function) (if (not ...) (progn ...))) (setq wl-sent-message-queued (cons (quote mail) wl-sent-message-queued)) (let ((element ...)) (if element (if ... nil ... ...) (setq wl-sent-message-via ...) (setq wl-sent-message-modified t))))) (if (and (wl-message-news-p) (not (eq (nth 1 ...) (quote sent))) (not (wl-message-field-exists-p "Resent-to"))) (if (or (not (or wl-draft-force-queuing wl-draft-force-queuing-news)) (memq (quote news) wl-sent-message-queued)) (funcall wl-draft-send-news-function) (setq wl-sent-message-queued (cons (quote news) wl-sent-message-queued)) (let ((element ...)) (if element (if ... nil ... ...) (setq wl-sent-message-via ...) (setq wl-sent-message-modified t)))))) (let* ((status (wl-draft-sent-message-results)) (unplugged-via (car status)) (sent-via (nth 1 status))) (if (and sent-via wl-draft-fcc-list) (progn (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list) (setq wl-draft-fcc-list nil))) (if wl-draft-use-cache (let ((id (std11-field-body "Message-ID")) (elmo-enable-disconnected-operation t)) (elmo-file-cache-save (elmo-file-cache-get-path id) nil))) (if (and unplugged-via wl-sent-message-modified) (progn (if wl-draft-enable-queuing (progn (wl-draft-queue-append wl-sent-message-via) (setq wl-sent-message-modified ...)) (error "Unplugged")))) (if wl-draft-verbose-send (progn (if (and unplugged-via sent-via) (progn (setq wl-draft-verbose-msg ...) (message "%sdone" wl-draft-verbose-msg)) (if mes-string (message "%s%s" mes-string ...))))))))
  wl-draft-dispatch-message()
  wl-draft-normal-send-func(#<buffer .univie/INBOX.Drafts/8918> t)
  funcall(wl-draft-normal-send-func #<buffer .univie/INBOX.Drafts/8918> t)
  (save-current-buffer (set-buffer sending-buffer) (if (and (not (wl-message-mail-p)) (not (wl-message-news-p))) (error "No recipient is specified")) (expand-abbrev) (let ((mime-header-encode-method-alist (append (quote ((wl-draft-eword-encode-address-list To Cc Bcc Resent-To Resent-Cc Resent-Bcc From))) (if (boundp (quote mime-header-encode-method-alist)) (symbol-value (quote mime-header-encode-method-alist)))))) (run-hooks (quote mail-send-hook))) (if wl-draft-verbose-send (message "%s" (or mes-string "Sending..."))) (if (and parent-flag parent-number (not (zerop (length parent-folder)))) (progn (condition-case nil (wl-folder-set-persistent-mark parent-folder parent-number parent-flag) (error (message "Set mark (%s) failed" (symbol-name parent-flag)))))) (funcall wl-draft-send-function editing-buffer kill-when-done) (while mail-send-actions (condition-case nil (apply (car (car mail-send-actions)) (cdr (car mail-send-actions))) (error)) (setq mail-send-actions (cdr mail-send-actions))) (if wl-draft-verbose-send (message "%sdone" (or wl-draft-verbose-msg mes-string "Sending..."))))
  (unwind-protect (save-current-buffer (set-buffer sending-buffer) (if (and (not (wl-message-mail-p)) (not (wl-message-news-p))) (error "No recipient is specified")) (expand-abbrev) (let ((mime-header-encode-method-alist (append (quote (...)) (if (boundp ...) (symbol-value ...))))) (run-hooks (quote mail-send-hook))) (if wl-draft-verbose-send (message "%s" (or mes-string "Sending..."))) (if (and parent-flag parent-number (not (zerop (length parent-folder)))) (progn (condition-case nil (wl-folder-set-persistent-mark parent-folder parent-number parent-flag) (error (message "Set mark (%s) failed" (symbol-name parent-flag)))))) (funcall wl-draft-send-function editing-buffer kill-when-done) (while mail-send-actions (condition-case nil (apply (car (car mail-send-actions)) (cdr (car mail-send-actions))) (error)) (setq mail-send-actions (cdr mail-send-actions))) (if wl-draft-verbose-send (message "%sdone" (or wl-draft-verbose-msg mes-string "Sending...")))) (and (buffer-live-p sending-buffer) (kill-buffer sending-buffer)))
  (let ((send-mail-function (quote wl-draft-raw-send)) (editing-buffer (current-buffer)) (sending-buffer (wl-draft-generate-clone-buffer " *wl-draft-sending-buffer*" (append wl-draft-config-variables (wl-draft-clone-local-variables)))) (parent-flag wl-draft-parent-flag) (parent-number wl-draft-parent-number) (parent-folder wl-draft-parent-folder) (wl-draft-verbose-msg nil) err) (unwind-protect (save-current-buffer (set-buffer sending-buffer) (if (and (not (wl-message-mail-p)) (not (wl-message-news-p))) (error "No recipient is specified")) (expand-abbrev) (let ((mime-header-encode-method-alist (append (quote ...) (if ... ...)))) (run-hooks (quote mail-send-hook))) (if wl-draft-verbose-send (message "%s" (or mes-string "Sending..."))) (if (and parent-flag parent-number (not (zerop (length parent-folder)))) (progn (condition-case nil (wl-folder-set-persistent-mark parent-folder parent-number parent-flag) (error (message "Set mark (%s) failed" ...))))) (funcall wl-draft-send-function editing-buffer kill-when-done) (while mail-send-actions (condition-case nil (apply (car (car mail-send-actions)) (cdr (car mail-send-actions))) (error)) (setq mail-send-actions (cdr mail-send-actions))) (if wl-draft-verbose-send (message "%sdone" (or wl-draft-verbose-msg mes-string "Sending...")))) (and (buffer-live-p sending-buffer) (kill-buffer sending-buffer))))
  (progn (let ((send-mail-function (quote wl-draft-raw-send)) (editing-buffer (current-buffer)) (sending-buffer (wl-draft-generate-clone-buffer " *wl-draft-sending-buffer*" (append wl-draft-config-variables (wl-draft-clone-local-variables)))) (parent-flag wl-draft-parent-flag) (parent-number wl-draft-parent-number) (parent-folder wl-draft-parent-folder) (wl-draft-verbose-msg nil) err) (unwind-protect (save-current-buffer (set-buffer sending-buffer) (if (and (not (wl-message-mail-p)) (not (wl-message-news-p))) (error "No recipient is specified")) (expand-abbrev) (let ((mime-header-encode-method-alist (append ... ...))) (run-hooks (quote mail-send-hook))) (if wl-draft-verbose-send (message "%s" (or mes-string "Sending..."))) (if (and parent-flag parent-number (not (zerop ...))) (progn (condition-case nil (wl-folder-set-persistent-mark parent-folder parent-number parent-flag) (error ...)))) (funcall wl-draft-send-function editing-buffer kill-when-done) (while mail-send-actions (condition-case nil (apply (car ...) (cdr ...)) (error)) (setq mail-send-actions (cdr mail-send-actions))) (if wl-draft-verbose-send (message "%sdone" (or wl-draft-verbose-msg mes-string "Sending...")))) (and (buffer-live-p sending-buffer) (kill-buffer sending-buffer)))))
  (if (or (not wl-interactive-send) (wl-draft-send-confirm)) (progn (let ((send-mail-function (quote wl-draft-raw-send)) (editing-buffer (current-buffer)) (sending-buffer (wl-draft-generate-clone-buffer " *wl-draft-sending-buffer*" (append wl-draft-config-variables (wl-draft-clone-local-variables)))) (parent-flag wl-draft-parent-flag) (parent-number wl-draft-parent-number) (parent-folder wl-draft-parent-folder) (wl-draft-verbose-msg nil) err) (unwind-protect (save-current-buffer (set-buffer sending-buffer) (if (and (not ...) (not ...)) (error "No recipient is specified")) (expand-abbrev) (let ((mime-header-encode-method-alist ...)) (run-hooks (quote mail-send-hook))) (if wl-draft-verbose-send (message "%s" (or mes-string "Sending..."))) (if (and parent-flag parent-number (not ...)) (progn (condition-case nil ... ...))) (funcall wl-draft-send-function editing-buffer kill-when-done) (while mail-send-actions (condition-case nil (apply ... ...) (error)) (setq mail-send-actions (cdr mail-send-actions))) (if wl-draft-verbose-send (message "%sdone" (or wl-draft-verbose-msg mes-string "Sending...")))) (and (buffer-live-p sending-buffer) (kill-buffer sending-buffer))))))
  wl-draft-send(t)
  wl-draft-send-and-exit()
  call-interactively(wl-draft-send-and-exit)
  orgtbl-ctrl-c-ctrl-c(nil)
  call-interactively(orgtbl-ctrl-c-ctrl-c nil nil)
  command-execute(orgtbl-ctrl-c-ctrl-c)