[Mew-dist 229] unfolding

[Shuhei KOBAYASHI]

  こばやし@JAIST です。

  mew-header.el より:

    (defun mew-header-decode (str &optional del-ret)
      (if del-ret
          (while (string-match "\n[ \t]*" str)
            (setq str (concat (substring str 0 (match-beginning 0))
                              (substring str (match-end 0) (length str)))
                  )
            )
        )

この unfolding の処理はちょっとヒドイと思います。常に unfold すべきか
どうかという問題もありますけど、こんな感じでどうでしょうか？

    (defun mew-header-decode (str &optional del-ret)
      (if del-ret
          (while (string-match "\n\\([ \t]\\)" str)
            (setq str (concat (substring str 0 (match-beginning 0))
                              (mew-match 1 str)
                              (substring str (match-end 0)))
                  )
            )
        )

-- 
小林 修平 / Shuhei KOBAYASHI / <shuhei-k at example.com>