Hi, I get the following error when trying to send a mail: Debugger entered--Lisp error: (args-out-of-range ["pub" "e" "3072" "17" "0ADA7CF492838A76" "1278484593" "1383905445" nil "u" nil nil "sca" nil nil nil] 15) signal(args-out-of-range (["pub" "e" "3072" "17" "0ADA7CF492838A76" "1278484593" "1383905445" nil "u" nil nil "sca" nil nil nil] 15)) (condition-case error (mime-edit-translate-buffer) ((error quit) (switch-to-buffer the-buf) (unless mime-edit-debug (kill-buffer buf)) (signal (car error) (cdr error)))) (let* ((str (buffer-string)) (separator mail-header-separator) (the-buf (current-buffer)) (buf-name (buffer-name)) (temp-buf-name (concat "*temp-article:" buf-name "*")) (buf (get-buffer temp-buf-name)) (pgp-processing mime-edit-pgp-processing)) (if buf (progn (switch-to-buffer buf) (erase-buffer)) (setq buf (get-buffer-create temp-buf-name)) (switch-to-buffer buf)) (insert str) (setq major-mode (quote mime-temp-message-mode)) (make-local-variable (quote mail-header-separator)) (setq mail-header-separator separator) (make-local-variable (quote mime-edit-buffer)) (setq mime-edit-buffer the-buf) (setq mime-edit-pgp-processing pgp-processing) (run-hooks (quote mime-edit-translate-hook)) (condition-case error (mime-edit-translate-buffer) ((error quit) (switch-to-buffer the-buf) (unless mime-edit-debug (kill-buffer buf)) (signal (car error) (cdr error)))) (goto-char (point-min)) (if (re-search-forward (concat "^" (regexp-quote separator) "$")) (replace-match "")) (mime-view-buffer) (make-local-variable (quote mime-edit-temp-message-buffer)) (setq mime-edit-temp-message-buffer buf)) mime-edit-preview-message() (let* (attribute-values (orig-buffer (current-buffer)) (current-point (point)) (config-exec-flag wl-draft-config-exec-flag) (parent-folder wl-draft-parent-folder) (mime-display-header-hook (quote wl-highlight-headers)) (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))))) mime-view-ignored-field-list (mime-edit-translate-buffer-hook (cons (lambda nil (let ((wl-draft-config-exec-flag config-exec-flag) (wl-draft-parent-folder parent-folder) (copy-buffer ...)) (wl-copy-local-variables orig-buffer copy-buffer (with-current-buffer orig-buffer ...)) (goto-char current-point) (run-hooks (quote wl-draft-send-hook)) (condition-case err (setq attribute-values ...) (error ... ...)))) mime-edit-translate-buffer-hook))) (mime-edit-preview-message) (make-local-variable (quote mime-preview-quitting-method-alist)) (setq mime-preview-quitting-method-alist (quote ((mime-temp-message-mode . wl-mime-quit-preview)))) (let ((buffer-read-only nil)) (when wl-highlight-body-too (wl-highlight-body)) (run-hooks (quote wl-draft-preview-message-hook))) (if (fboundp (quote make-local-hook)) (make-local-hook (quote kill-buffer-hook))) (add-hook (quote kill-buffer-hook) (function wl-draft-hide-attributes-buffer) nil t) (if wl-draft-preview-attributes (ignore-errors (wl-draft-show-attributes-buffer attribute-values)) (message (concat "Recipients: " (cdr (assq (quote recipients) attribute-values)))))) wl-draft-preview-message() (let (wl-draft-send-hook (pgg-decrypt-automatically nil)) (wl-draft-preview-message)) (progn (let (wl-draft-send-hook (pgg-decrypt-automatically nil)) (wl-draft-preview-message))) (if wl-draft-send-confirm-with-preview (progn (let (wl-draft-send-hook (pgg-decrypt-automatically nil)) (wl-draft-preview-message)))) (when wl-draft-send-confirm-with-preview (let (wl-draft-send-hook (pgg-decrypt-automatically nil)) (wl-draft-preview-message))) (progn (when wl-draft-send-confirm-with-preview (let (wl-draft-send-hook (pgg-decrypt-automatically nil)) (wl-draft-preview-message))) (save-excursion (goto-char (point-min)) (funcall (if (functionp wl-draft-send-confirm-type) wl-draft-send-confirm-type (lambda (prompt) (wl-y-or-n-p-with-scroll prompt (eq wl-draft-send-confirm-type (quote scroll-by-SPC/BS))))) "Send current draft? "))) (condition-case nil (progn (when wl-draft-send-confirm-with-preview (let (wl-draft-send-hook (pgg-decrypt-automatically nil)) (wl-draft-preview-message))) (save-excursion (goto-char (point-min)) (funcall (if (functionp wl-draft-send-confirm-type) wl-draft-send-confirm-type (lambda (prompt) (wl-y-or-n-p-with-scroll prompt (eq wl-draft-send-confirm-type ...)))) "Send current draft? "))) (quit nil)) (unwind-protect (condition-case nil (progn (when wl-draft-send-confirm-with-preview (let (wl-draft-send-hook (pgg-decrypt-automatically nil)) (wl-draft-preview-message))) (save-excursion (goto-char (point-min)) (funcall (if (functionp wl-draft-send-confirm-type) wl-draft-send-confirm-type (lambda (prompt) (wl-y-or-n-p-with-scroll prompt ...))) "Send current draft? "))) (quit nil)) (when (and wl-draft-send-confirm-with-preview (eq major-mode (quote mime-view-mode))) (wl-mime-quit-preview))) wl-draft-send-confirm() (or (not wl-interactive-send) (wl-draft-send-confirm)) (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 (with-current-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..."))) (when (and parent-flag parent-number (not ...)) (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 ... ...) (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)))))) (when (or (not wl-interactive-send) (wl-draft-send-confirm)) (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 (with-current-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..."))) (when (and parent-flag parent-number (not (zerop ...))) (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 ...) (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))))) wl-draft-send(t) wl-draft-send-and-exit() #<subr call-interactively>(wl-draft-send-and-exit nil nil) ad-Advice-call-interactively(#<subr call-interactively> wl-draft-send-and-exit nil nil) apply(ad-Advice-call-interactively #<subr call-interactively> (wl-draft-send-and-exit nil nil)) call-interactively(wl-draft-send-and-exit nil nil) command-execute(wl-draft-send-and-exit) My configuration can be found at <https://github.com/ckruse/Emacs.d/blob/master/wl> Did I do anything wrong? This stopped working with one of the last updates… Best regards, -- Christian Kruse http://ck.kennt-wayne.de/
Attachment:
pgpqTqGz7Y6MW.pgp
Description: PGP signature