japanese file name

http://www.bookshelf.jp/soft/meadow_54.html


;;                                           
;;                                                       
(defvar my-mime-filename-coding-system-for-decode
  '(iso-2022-jp japanese-shift-jis japanese-iso-8bit))
(defun my-mime-decode-filename (filename)
  (let ((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)))
(eval-after-load "mime"
  '(defadvice mime-entity-filename (after eword-decode-for-broken-MUA activate)
     "Decode encoded file name for BROKEN MUA."
     (when (stringp ad-return-value)
       (setq ad-return-value (my-mime-decode-filename ad-return-value)))))

 ~/.emacs *Article* 


Samba  Windows 
coding system = cap  T-gnus  v e 
 Windows 
Windows 

Windows :-(


:93:fa:96{:8c:ea:83t:83@:83C:83:8b:96:bc


Samba-ja  capecho 
T-gnus  FLIM/SEMI 



-- 
NAKAJI Hiroyuki ( )