[mew-dist 26489] MIME decoding error

[Satoru KAMEOKA]

亀岡＠ROMと申します。

Emacs 21.3 (Linux) でMew 4.2を使用していますが、
しばしば本文と添付ファイルの分離に失敗することがあります。
その際ミニバッファに
MIME decoding error: No first boundary for Multipart/Mixed
と表示されます。

添付ファイルや送信に使われたのMUAの種類は多彩で、
自分で(Mewで)作成したマルチパートのメールを自分にCcしたものが開けなかっ
たこと
も一度ありました。

Backtraceを添付します。

アドバイスよろしくお願いします。

--
亀岡
-------------- next part --------------
Debugger entered--Lisp error: (error "")
  signal(error (""))
  error("")
  mew-decode-error("No first boundary for Multipart/Mixed")
  (if (and (re-search-forward bregex nil t) (mew-decode-multipart-boundary-cont)) nil (mew-decode-error (format "No first boundary for %s" ct)))
  (unless (and (re-search-forward bregex nil t) (mew-decode-multipart-boundary-cont)) (mew-decode-error (format "No first boundary for %s" ct)))
  (let* ((case-fold-search nil) (ctl ...) (ct ...) (boundary ...) (count 0) (parts []) part pref lastpref prefpart atpref lastatpref bregex start break) (unless boundary (mew-decode-error "No boundary parameter for multipart")) (mew-syntax-set-key syntax (quote multi)) (setq bregex (mew-decode-multipart-boundary-regex boundary)) (unless (and ... ...) (mew-decode-error ...)) (forward-line) (setq start (point)) (catch (quote multipart) (while ... ... ... ... ... ...) (when ... ...) (mew-decode-error ...)))
  mew-decode-multipart([multi 1124 nil nil ("multipart/mixed" ("boundary" "============_-1091074498==_============")) nil nil nil nil] 1 nil)
  (setq syntax (mew-decode-multipart syntax cnt nil))
  (cond ((string= mew-ct-mld ct) (setq syntax ...)) ((string= mew-ct-mls ct) (setq syntax ...)) ((string= mew-ct-mle ct) (if mew-inherit-prefetching ... ...)) (t (setq syntax ...)))
  (if multi-err (mew-syntax-set-ct syntax mew-type-apo) (cond (... ...) (... ...) (... ...) (t ...)))
  (cond ((not ...) (mew-syntax-set-ct syntax mew-type-apo) (if ... ...)) ((mew-ct-messagep ct) (if ... ... ...)) ((mew-ct-multipartp ct) (if ... ... ... ...) (if multi-err ... ...)) ((string= mew-ct-trh ct) (save-restriction ... ...)) (t (if ... ...) (if textp ... ...)))
  (let* ((case-fold-search t) (begin ...) (syntax ...) (ctl ...) (ct ...) (textp ...) (cte ...) (multi-err t) (encap nil) type) (cond (... ... ...) (... ...) (... ... ...) (... ...) (t ... ...)) (setq type (mew-syntax-get-value ... ...)) (unless (mew-syntax-get-end syntax) (mew-syntax-set-end syntax ...)) (when (and ... ...) (mew-highlight-body-region ... ...)) (if encap (let ... ... ... ...) syntax))
  mew-decode-singlepart(1 nil message)
  (setq part (mew-decode-singlepart cnt nil (quote message)))
  (save-restriction (narrow-to-region (point) (point-max)) (setq part (mew-decode-singlepart cnt nil ...)) (mew-syntax-set-key syntax (quote message)) (mew-syntax-set-end syntax (1- ...)) (or (mew-syntax-get-cd syntax) (mew-syntax-set-cd syntax subj)) (mew-syntax-cat syntax part))
  (cond (mimep (save-restriction ... ... ... ... ... ...)) (t (if ... ... ...) (if ... ...) (mew-syntax-set-key syntax ...) (mew-syntax-set-end syntax ...) (or ... ...) (mew-highlight-body-region ... ...) (mew-decode-syntax-rfc822 syntax ...)))
  (let* ((msf ...) (mimep ...) (subj ...) (mew-inherit-decode-signer ...) part) (cond (mimep ...) (t ... ... ... ... ... ... ...)))
  (cond ((and ... ...) (if ... ... ...) (mew-syntax-set-key syntax ...) (mew-syntax-set-end syntax ...) (mew-decode-syntax-rfc822 syntax)) (t (let* ... ...)))
  mew-decode-message([message 1 nil nil ("Message/Rfc822") nil nil nil nil] 0)
  (setq mew-decode-syntax (mew-decode-message (mew-decode-syntax-rfc822-head) 0))
  (let ((debug-on-error t)) (setq mew-decode-syntax (mew-decode-message ... 0)))
  (if (mew-debug (quote decode)) (let (...) (setq mew-decode-syntax ...)) (condition-case nil (setq mew-decode-syntax ...) (error ... ... ...)))
  mew-decode()
  (if unlimit (let (... ...) (mew-decode)) (mew-decode))
  (condition-case nil (if unlimit (let ... ...) (mew-decode)) (quit (mew-cache-delete) (message "MIME decoding for %s/%s aborted" fld msg) (throw ... ...)))
  (catch (quote return) (if cache (progn ... ...) (setq cache ...) (setq decode t)) (if (not decode) (throw ... nil)) (set-buffer cache) (mew-erase-buffer) (condition-case errmsg (setq tim-siz ...) (error ... ... ...)) (mew-cinfo-set fld msg (car tim-siz) (cdr tim-siz) mew-decode-broken) (mew-dinfo-set nil t t mew-use-alternative) (mew-decode-syntax-clear) (mew-xinfo-set-text-body mew-use-text-body) (condition-case nil (if unlimit ... ...) (quit ... ... ...)) (mew-ainfo-set-icon msg) (mew-decode-syntax-set))
  (let* ((cbuf ...) (cache ...) tim-siz decode errormsg) (catch (quote return) (if cache ... ... ...) (if ... ...) (set-buffer cache) (mew-erase-buffer) (condition-case errmsg ... ...) (mew-cinfo-set fld msg ... ... mew-decode-broken) (mew-dinfo-set nil t t mew-use-alternative) (mew-decode-syntax-clear) (mew-xinfo-set-text-body mew-use-text-body) (condition-case nil ... ...) (mew-ainfo-set-icon msg) (mew-decode-syntax-set)) (set-buffer cbuf) (if errormsg (if no-err ... ...)) cache)
  mew-cache-message("%ml/crc" "211" nil)
  (let ((cache ...)) (mew-decode-syntax-copy cache) (unless nodisplay (mew-mime-message/rfc822 cache mew-decode-syntax)) (mew-decode-syntax-print sumbuf mew-decode-syntax (mew-xinfo-get-multi-form) (mew-xinfo-get-icon-spec)) (unless nodisplay (mew-summary-display-postscript)) cache)
  (let ((buffer-read-only nil) (inhibit-read-only t) (after-change-functions nil) (mark-active nil) (zmacs-regions nil)) (mew-summary-display-preamble) (let (...) (mew-decode-syntax-copy cache) (unless nodisplay ...) (mew-decode-syntax-print sumbuf mew-decode-syntax ... ...) (unless nodisplay ...) cache))
  (mew-elet (mew-summary-display-preamble) (let (...) (mew-decode-syntax-copy cache) (unless nodisplay ...) (mew-decode-syntax-print sumbuf mew-decode-syntax ... ...) (unless nodisplay ...) cache))
  mew-summary-cache-message("%ml/crc" "211" #<buffer %ml/crc>)
  (cond ((string= fld mew-draft-folder) (if ... ... ... ... ...)) ((mew-summary-message-toobig fld msg) (if ... ... ... ... ... ...)) (t (mew-decode-syntax-clear) (mew-summary-cache-message fld msg sumbuf) (setq prefetch t)))
  (cond ((null cache) (mew-decode-syntax-delete) (cond ... ... ...)) (msg (cond ... ...)) (part (cond ... ...)))
  (progn (mew-summary-toggle-disp-msg (quote on)) (mew-window-configure (quote message)) (mew-current-set fld (or msg omsg) part) (mew-minfo-set-summary vfld) (cond (... ... ...) (msg ...) (part ...)))
  (unwind-protect (progn (mew-summary-toggle-disp-msg ...) (mew-window-configure ...) (mew-current-set fld ... part) (mew-minfo-set-summary vfld) (cond ... ... ...)) (if (mew-xinfo-get-decode-err) (message "MIME decoding error: %s" ...)) (if (mew-xinfo-get-action) (message "%s" ...)) (mew-message-mode-line fld msg) (select-window win) (mew-summary-cursor-postscript) (if prefetch (mew-summary-cache-prefetch)) (if next (mew-summary-display-after mew-summary-show-direction)))
  (let* ((fld ...) (vfld ...) (msg ...) (part ...) (ofld ...) (omsg ...) (opart ...) (cache ...) (win ...) (read-through ...) (sumbuf ...) next prefetch) (unwind-protect (progn ... ... ... ... ...) (if ... ...) (if ... ...) (mew-message-mode-line fld msg) (select-window win) (mew-summary-cursor-postscript) (if prefetch ...) (if next ...)))
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (let* ... ...)))
  (mew-summary-msg-or-part (let* (... ... ... ... ... ... ... ... ... ... ... next prefetch) (unwind-protect ... ... ... ... ... ... ... ...)))
  (progn (mew-summary-msg-or-part (let* ... ...)))
  (if (or redisplay (mew-sinfo-get-disp-msg) (interactive-p)) (progn (mew-summary-msg-or-part ...)))
  (when (or redisplay (mew-sinfo-get-disp-msg) (interactive-p)) (mew-summary-msg-or-part (let* ... ...)))
  mew-summary-display(nil)
  (if (mew-summary-up) (mew-summary-display nil))
  mew-summary-display-up(nil)
* call-interactively(mew-summary-display-up)