Gnus で日本語添付ファイル

[Osamu Yamane <yamane@xxxxxxxxxxxxxxx>]

山根＠千葉 と申します。こんばんは。

Meadow1.99 に付いてくる Gnus にはまっています。で、勢いで、
機能的には不十分ですが、日本語名称を持つ添付ファイルに対応
するためのパッチをでっち上げました。（会社で使うには、やっ
ぱり必要ですので）

若葉（枯葉!?）マークユーザゆえ、知らずに危険なことしている
可能性大です。
修正・全面書き換えなどアドバイスいただけたらと思います。


【受信】article buffer 上のボタン表示

--- gnus-art.el.orig	2002-01-19 18:27:30.000000000 +0900
+++ gnus-art.el		2003-06-09 20:50:41.000000000 +0900
@@ -3305,6 +3305,7 @@
 	(gnus-tmp-length (with-current-buffer (mm-handle-buffer handle)
 			   (buffer-size)))
 	gnus-tmp-type-long b e)
+    (setq gnus-tmp-name (mail-decode-encoded-word-string gnus-tmp-name))
     (when (string-match ".*/" gnus-tmp-name)
       (setq gnus-tmp-name (replace-match "" t t gnus-tmp-name)))
     (setq gnus-tmp-type-long (concat gnus-tmp-type

【受信】右クリック→ save のダイアログボックスの初期表示ファイル名称（だけ）

--- mm-decode.el.orig	2002-01-19 18:27:34.000000000 +0900
+++ mm-decode.el	2003-06-09 20:08:10.000000000 +0900
@@ -683,6 +683,10 @@
 	 (filename (mail-content-type-get
 		    (mm-handle-disposition handle) 'filename))
 	 file)
+    (when (stringp name)
+      (setq name (mail-decode-encoded-word-string name)))
+    (when (stringp filename)
+      (setq filename (mail-decode-encoded-word-string filename)))
     (when filename
       (setq filename (file-name-nondirectory filename)))
     (setq file

【送信】

--- mml.el.orig	2002-01-19 18:27:35.000000000 +0900
+++ mml.el	2003-06-08 20:18:34.000000000 +0900
@@ -508,7 +508,7 @@
       (when (setq value (cdr (assq type cont)))
 	;; Strip directory component from the filename parameter.
 	(when (eq type 'filename)
-	  (setq value (file-name-nondirectory value)))
+	  (setq value (mail-encode-encoded-word-string (file-name-nondirectory value))))
 	(mml-insert-parameter
 	 (mail-header-encode-parameter
 	  (symbol-name type) value))))))