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

[Tatsuya Kinoshita]

In message [mew-dist 19354], on Tue, 16 Oct 2001,
Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

> これは、quoted-string を unfold すると、
> 	" 	=?ISO-2022-JP?B?GyRCJUYlOSVIGyhC?=.xls"
> となり、余分な TAB は encoded-word に囲まれている訳ではないので取り除
> かれません。

それはそれとして、デコードされたあとのファイル名を加工したい場合
がある(たとえばコントロールコードを除去したい)ので、そのための関
数を定義できるようにしてみました。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- mew/mew-syntax.el	Fri Oct 12 17:49:38 2001
+++ mew-tats/mew-syntax.el	Wed Oct 17 01:25:34 2001
@@ -139,11 +139,15 @@
 (defsubst mew-syntax-get-param (ctl member)
   (nth 1 (assoc member ctl)))
 
+(defvar mew-syntax-treat-filename-function nil)
+
 (defun mew-syntax-get-filename (cdpl &optional ctl)
   (let ((file (mew-syntax-get-param cdpl "filename")))
     ;; for broken MUAs
     (if (and (null file) mew-use-name-parameter ctl)
 	(setq file (mew-syntax-get-param ctl "name")))
+    (if mew-syntax-treat-filename-function
+	(setq file (funcall mew-syntax-treat-filename-function file)))
     file))
 
 ;; need to setq