[mew-dist 28434] Re: (error "Invalid base64 data")

[KOIE Hidetaka ( 鯉江英隆 )]

たかのさんからのメイルがちゃんと表示できなかったので
(setq mew-debug t) してから
"." (mew-summary-analyze-again) を実行したら
バックトレースがとれて、
Debugger entered--Lisp error: (error "Invalid base64 data")
  base64-decode-region(6153 6157)
  utf-7-decode(44 nil)
  utf-7-post-read-conversion(44)
  decode-coding-region(6113 6157 utf-7)
  …
となっていました。
つかっているemacsは23.0.60になるちょっと前のCVS版です。

--
鯉江英隆 <hide at example.com>
-------------- next part --------------
Debugger entered--Lisp error: (error "Invalid base64 data")
  base64-decode-region(6153 6157)
  utf-7-decode(44 nil)
  utf-7-post-read-conversion(44)
  decode-coding-region(6113 6157 utf-7)
  (if cs (decode-coding-region beg end cs))
  mew-cs-decode-region(6113 6157 utf-7)
  (if (mew-coding-system-p fromcs) (mew-cs-decode-region beg (point-max) fromcs))
  (let* ((fromcs ...)) (unless (mew-coding-system-p fromcs) (mew-decode-warning-body ... charset)) (when (and mew-use-autoconv-when-unknown ...) (setq fromcs mew-cs-autoconv)) (when (and mew-decode-broken ... ...) (goto-char beg) (when ... ... ...) (goto-char beg)) (when (and mew-decode-broken ... ...) (goto-char beg) (when ... ... ...) (goto-char beg)) (if (mew-coding-system-p fromcs) (mew-cs-decode-region beg ... fromcs)))
  mew-decode-charset-conv("UTF-7" 6113)
  (if (and textp (eq ... t)) (mew-decode-charset-conv charset beg))
  (let* ((linebasep ...) (beg ...) opt file decoded switch) (unless (or ... ...) (when ... ... ...) (cond ... ... ...)) (if (and textp ...) (mew-decode-charset-conv charset beg)))
  mew-decode-mime-body(t "Text/Plain" "quoted-printable" "UTF-7")
  (let ((charset ...)) (mew-decode-mime-body t ct cte charset))
  (if (mew-dinfo-get-decode-text) (let (...) (mew-decode-mime-body t ct cte charset)))
  (if textp (if (mew-dinfo-get-decode-text) (let ... ...)) (if (mew-dinfo-get-decode-binary) (mew-decode-mime-body nil ct cte)))
  (cond ((not ...) (mew-syntax-set-ct syntax mew-type-apo) (if ... ...)) ((mew-ct-messagep ct) (if ... ... ...)) ((or ... ...) (mew-decode-mime-body nil ct cte) (mew-syntax-set-end syntax ...) (setq syntax ...)) ((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 hend format delsp) (cond (... ... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (t ... ...)) (setq type (mew-syntax-get-value ... ...)) (setq hend (mew-syntax-get-end syntax)) (unless hend (mew-syntax-set-end syntax ...)) (when (and ... ...) (setq format ...) (when ... ... ... ... ...) (mew-highlight-body-region ... ...)) (unless hend (mew-syntax-set-end syntax ...)) (if encap (let ... ... ... ...) syntax))
  mew-decode-singlepart(2 nil nil)
  (setq part (mew-decode-singlepart cnt dct nil))
  (save-restriction (narrow-to-region start (point)) (goto-char (point-min)) (setq part (mew-decode-singlepart cnt dct nil)) (setq count (1+ count)) (if (and ... ...) (progn ... ... ...) (setq parts ...)))
  (save-excursion (unless break (forward-line -1)) (beginning-of-line) (forward-char -1) (save-restriction (narrow-to-region start ...) (goto-char ...) (setq part ...) (setq count ...) (if ... ... ...)))
  (while (re-search-forward bregex nil t) (setq break (mew-decode-multipart-boundary-end)) (if break nil (forward-line)) (save-excursion (unless break ...) (beginning-of-line) (forward-char -1) (save-restriction ... ... ... ... ...)) (setq start (point)) (when break (if ... ... ...)))
  (catch (quote multipart) (while (re-search-forward bregex nil t) (setq break ...) (if break nil ...) (save-excursion ... ... ... ...) (setq start ...) (when break ...)) (when (= count 0) (save-restriction ... ... ...)) (mew-decode-error (format "No last 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 5974 nil nil ("multipart/alternative" ("boundary" "----=_NextPart_000_0015_01C8BA3C.676D7590")) nil nil nil nil] 2 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 ... ... ...)) ((or ... ...) (mew-decode-mime-body nil ct cte) (mew-syntax-set-end syntax ...) (setq syntax ...)) ((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 hend format delsp) (cond (... ... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (t ... ...)) (setq type (mew-syntax-get-value ... ...)) (setq hend (mew-syntax-get-end syntax)) (unless hend (mew-syntax-set-end syntax ...)) (when (and ... ...) (setq format ...) (when ... ... ... ... ...) (mew-highlight-body-region ... ...)) (unless hend (mew-syntax-set-end syntax ...)) (if encap (let ... ... ... ...) syntax))
  mew-decode-singlepart(2 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([single 4283 nil nil ("Message/Rfc822") "7bit" nil nil ("inline")] 1)
  (setq syntax (mew-decode-message syntax cnt))
  (save-restriction (narrow-to-region (point) (point-max)) (setq syntax (mew-decode-message syntax cnt)))
  (cond ((string= mew-ct-msg ct) (if ... ...) (save-restriction ... ...)) ((string= mew-ct-ext ct) (let* ... ...)) ((string= mew-ct-sts ct)) (t (mew-syntax-set-ct syntax mew-type-apo)))
  (if (not (mew-cte-composite-p cte)) (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 ... ... ...)) ((or ... ...) (mew-decode-mime-body nil ct cte) (mew-syntax-set-end syntax ...) (setq syntax ...)) ((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 hend format delsp) (cond (... ... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (t ... ...)) (setq type (mew-syntax-get-value ... ...)) (setq hend (mew-syntax-get-end syntax)) (unless hend (mew-syntax-set-end syntax ...)) (when (and ... ...) (setq format ...) (when ... ... ... ... ...) (mew-highlight-body-region ... ...)) (unless hend (mew-syntax-set-end syntax ...)) (if encap (let ... ... ... ...) syntax))
  mew-decode-singlepart(1 nil nil)
  (setq part (mew-decode-singlepart cnt dct nil))
  (save-restriction (narrow-to-region start (point)) (goto-char (point-min)) (setq part (mew-decode-singlepart cnt dct nil)) (setq count (1+ count)) (if (and ... ...) (progn ... ... ...) (setq parts ...)))
  (save-excursion (unless break (forward-line -1)) (beginning-of-line) (forward-char -1) (save-restriction (narrow-to-region start ...) (goto-char ...) (setq part ...) (setq count ...) (if ... ... ...)))
  (while (re-search-forward bregex nil t) (setq break (mew-decode-multipart-boundary-end)) (if break nil (forward-line)) (save-excursion (unless break ...) (beginning-of-line) (forward-char -1) (save-restriction ... ... ... ... ...)) (setq start (point)) (when break (if ... ... ...)))
  (catch (quote multipart) (while (re-search-forward bregex nil t) (setq break ...) (if break nil ...) (save-excursion ... ... ... ...) (setq start ...) (when break ...)) (when (= count 0) (save-restriction ... ... ...)) (mew-decode-error (format "No last 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 3369 nil nil ("Multipart/Mixed" ("boundary" "--Next_Part(Tue_May_20_18_05_29_2008_972)--")) "7bit" 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 ... ... ...)) ((or ... ...) (mew-decode-mime-body nil ct cte) (mew-syntax-set-end syntax ...) (setq syntax ...)) ((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 hend format delsp) (cond (... ... ...) (... ...) (... ... ... ...) (... ... ...) (... ...) (t ... ...)) (setq type (mew-syntax-get-value ... ...)) (setq hend (mew-syntax-get-end syntax)) (unless hend (mew-syntax-set-end syntax ...)) (when (and ... ...) (setq format ...) (when ... ... ... ... ...) (mew-highlight-body-region ... ...)) (unless hend (mew-syntax-set-end syntax ...)) (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()
  (let ((mew-header-max-length nil) (mew-header-max-depth nil)) (mew-decode))
  (if unlimit (let (... ...) (mew-decode)) (mew-decode))
  (condition-case nil (if unlimit (let ... ...) (mew-decode)) (quit (mew-cache-delete) (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) (if (and use-alternative mew-disable-alternative-regex-list) (setq use-alternative ...)) (mew-dinfo-set nil t t 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-xinfo-set-info (append ... ...)) (mew-decode-syntax-set))
  (let* ((cbuf ...) (cache ...) (use-alternative mew-use-alternative) 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) (if ... ...) (mew-dinfo-set nil t t use-alternative) (mew-decode-syntax-clear) (mew-xinfo-set-text-body mew-use-text-body) (condition-case nil ... ...) (mew-ainfo-set-icon msg) (mew-xinfo-set-info ...) (mew-decode-syntax-set)) (set-buffer cbuf) (if errormsg (if no-err ... ...)) cache)
  mew-cache-message("+inbox" "449550" unlimit)
  (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)) (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("+inbox" "449550" #<buffer *+inbox*> unlimit)
  (if part (progn (setq cache ...) (mew-summary-display-part cache part)) (mew-cache-delete2 fld msg) (mew-summary-goto-message) (mew-current-set fld msg part) (mew-minfo-set-summary vfld) (mew-decode-syntax-clear) (mew-decode-syntax-delete) (mew-summary-cache-message fld msg sumbuf (quote unlimit)))
  (progn (mew-summary-toggle-disp-msg (quote on)) (mew-window-configure (quote message)) (if part (progn ... ...) (mew-cache-delete2 fld msg) (mew-summary-goto-message) (mew-current-set fld msg part) (mew-minfo-set-summary vfld) (mew-decode-syntax-clear) (mew-decode-syntax-delete) (mew-summary-cache-message fld msg sumbuf ...)))
  (unwind-protect (progn (mew-summary-toggle-disp-msg ...) (mew-window-configure ...) (if part ... ... ... ... ... ... ... ...)) (if (mew-xinfo-get-decode-err) (message "MIME decoding error: %s" ...)) (mew-message-mode-line fld msg) (select-window win) (mew-summary-cursor-postscript))
  (let ((mew-decode-broken ...) (mew-use-text/html t) (mew-use-text/xml t) (fld ...) (vfld ...) (msg ...) (part ...) (win ...) (sumbuf ...) cache) (unwind-protect (progn ... ... ...) (if ... ...) (mew-message-mode-line fld msg) (select-window win) (mew-summary-cursor-postscript)))
  (if (mew-folder-draftp (mew-summary-folder-name)) (mew-summary-display (quote redisplay)) (let (... ... ... ... ... ... ... ... ... cache) (unwind-protect ... ... ... ... ...)))
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (if ... ... ...)))
  (mew-summary-msg-or-part (if (mew-folder-draftp ...) (mew-summary-display ...) (let ... ...)))
  mew-summary-analyze-again(nil)
  call-interactively(mew-summary-analyze-again nil nil)