[mew-dist 19401] Re: encoded-word of the 'filename' parameter

[Tatsuya Kinoshita]

In message [mew-dist 19393], on Wed, 17 Oct 2001,
Shun-ichi GOTO <gotoh at example.com> wrote:

> Mew がサポートしていないものは
> 
>  * 生JIS のデコード
>  * 空白の除去
> 
> でしょうけど、木下さんのアプローチでこれらも吸収できるでしょうから良いと
> 思います。
> あとはそこに登録する関数を誰が提供するか、くらいでしょうか。

とりあえず手元には下記のようなコードを抱えています。

---- 
(setq mew-syntax-treat-filename-function 'my-mew-treat-filename)
(defun my-mew-treat-filename (file)
  (when file
    ;; Remove control characters
    (while (string-match
	    "\\(^[\x00-\x20]+\\|[\x00-\x20]+$\\|[\x00-\x1f]+\\)" file)
      (setq file (replace-match "" nil t file))))
  (when file
    ;; Simplify SPCs
    (while (string-match "  +" file)
      (setq file (replace-match " " nil t file))))
;;;  (when file
;;;    ;; Convert to "_"
;;;    (while (string-match "[ :/\\\\]" file)
;;;      (setq file (replace-match "_" nil t file))))
  file)
---- 

-- 
木下達也