[mew-dist 21622] Re: default-file-name-coding-system

[Kazu Yamamoto ( 山本和彦 )]

From: Ishikura <suzume009jp at example.com>
Subject: [mew-dist 21619] default-file-name-coding-system

>  3.0.66 を試したところ、自分の環境(XEmacs 21.1.14)では、
> mew 起動前に
> 
> (setq default-file-name-coding-system 'euc-jp)
> 
> のようにしてあげないと、draft 作成や refile 時に
> Symbol's value as variable is void: default-file-name-coding-system
> を出して先に進めなくなりました。

ううう。XEmacs 21.1.14 には、default-file-name-coding-system がないの
ですね。最近のにはあるので安心していました。このパッチを当てて下さい。

--かず

Index: mew-func.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-func.el,v
retrieving revision 1.91
diff -c -r1.91 mew-func.el
*** mew-func.el	2002/08/28 12:06:49	1.91
--- mew-func.el	2002/09/04 01:48:05
***************
*** 643,650 ****
    ;; If {default-,}file-name-coding-system are bound to nil, 
    ;; ENCODE_FILE() and DECODE_FILE() are skipped, resulting speed up.
    ;; So, we need to encode DIR by ourselves.
!   (let ((edir (expand-file-name dir)))
!     (setq edir (mew-cs-encode-string edir default-file-name-coding-system))
      (or regex (setq regex mew-regex-message-files))
      (mew-alet
       (directory-files edir nil regex 'no-sort))))
--- 643,655 ----
    ;; If {default-,}file-name-coding-system are bound to nil, 
    ;; ENCODE_FILE() and DECODE_FILE() are skipped, resulting speed up.
    ;; So, we need to encode DIR by ourselves.
!   (let ((edir (expand-file-name dir))
! 	;; XEmacs 21.1.14 does not have default-file-name-coding-system
! 	(cs (or (and (boundp 'default-file-name-coding-system)
! 		     default-file-name-coding-system)
! 		(and (boundp 'file-name-coding-system)
! 		     file-name-coding-system))))
!     (setq edir (mew-cs-encode-string edir cs))
      (or regex (setq regex mew-regex-message-files))
      (mew-alet
       (directory-files edir nil regex 'no-sort))))