wanderlust vs. mozilla?

周囲に mozilla メーラーを使っている人がいるのだが、
彼のメールにファイルが添付されているとき、
たまに (ファイル名が日本語で、かつある程度長いとき?)
ファイル名の途中にタブ文字が挿入されて、
'v' キーでのファイルオープンに失敗することがある。
例えばこんな感じ↓

[2 2010_03_13_なんとかかんとかシステムの仕様書_v.3.141592_チェック途中.docx <application/octet-stream (base64)>]

mozilla のせいかどうかは特定できていないが、
とりあえず以下のような関数を .wl に追記すれば対処可能。

my-mime-decode-filename 自体は、wanderlust で日本語名の添付ファイルを
扱うときの常套句。
ここでの変更は、2行目〜4行目で filename から改行とタブ文字を削除する処理を追加しただけです。

(defun my-mime-decode-filename (filename)
  (let ((filename (if (string-match "\n\t*" filename)
                      (replace-match "" nil nil filename)
                    filename))
        (rest (eword-decode-string filename)))
    (or (when (and my-mime-filename-coding-system-for-decode
                   (string= rest filename))
          (let ((dcs (mapcar (function coding-system-base)
                             (detect-coding-string filename))))
            (unless (memq 'emacs-mule dcs)
              (let ((pcs my-mime-filename-coding-system-for-decode))
                (while pcs
                  (if (memq (coding-system-base (car pcs)) dcs)
                      (setq rest (decode-coding-string filename (car pcs))
                            pcs nil)
                    (setq pcs (cdr pcs))))))))
        rest)))