[Mew-dist 16438] a patch for b106

[Kazu Yamamoto ( 山本和彦 )]

以下のパッチを当てると、

(1) 二宮さんの指摘した、charset の警告のバグが直る

(2) フォルダ名が non-ASCII であっても動く (と思う)

ようになります。

(2) のため、directory-files の高速化は捨てました。本質的には、メモリ
キャッシュを持つことで、mew-folder-new-message を高速にしたいと思いま
す。

--かず

Index: mew-decode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.172
retrieving revision 1.173
diff -c -r1.172 -r1.173
*** mew-decode.el	2001/02/16 10:05:39	1.172
--- mew-decode.el	2001/02/17 20:28:52	1.173
***************
*** 462,473 ****
  		   (or (null charset)
  		       (mew-case-equal charset mew-us-ascii))) ;; anyway
  	      (progn
! 		(goto-char (point-min))
  		(if (re-search-forward mew-regex-esc-or-nonascii nil t)
  		    (progn
  		      (mew-decode-warning-body 'no-charset charset)
  		      (setq fromcs mew-cs-autoconv)))
! 		(goto-char (point-min))))
  	  (if (mew-coding-system-p fromcs)
  	      (mew-cs-decode-region beg (point-max) fromcs))))))
  
--- 462,473 ----
  		   (or (null charset)
  		       (mew-case-equal charset mew-us-ascii))) ;; anyway
  	      (progn
! 		(goto-char beg)
  		(if (re-search-forward mew-regex-esc-or-nonascii nil t)
  		    (progn
  		      (mew-decode-warning-body 'no-charset charset)
  		      (setq fromcs mew-cs-autoconv)))
! 		(goto-char beg)))
  	  (if (mew-coding-system-p fromcs)
  	      (mew-cs-decode-region beg (point-max) fromcs))))))
  
Index: mew-func.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-func.el,v
retrieving revision 1.200
retrieving revision 1.201
diff -c -r1.200 -r1.201
*** mew-func.el	2001/02/15 11:10:07	1.200
--- mew-func.el	2001/02/17 20:28:53	1.201
***************
*** 501,509 ****
  	  t))))) ;; created
  
  (defsubst mew-dir-messages (dir)
!   (let ((default-file-name-coding-system nil) ;; this make scan faster
! 	(file-name-coding-system nil))
!     (directory-files dir nil mew-regex-message-files 'no-sort)))
  
  (defun mew-folder-new-message (folder &optional num-only)
    (let* ((dir (mew-expand-folder folder))
--- 501,511 ----
  	  t))))) ;; created
  
  (defsubst mew-dir-messages (dir)
!   ;; (default-file-name-coding-system nil)
!   ;; (file-name-coding-system nil)
!   ;; This makes scan faster but makes non-ASCII directories
!   ;; unavailable.
!   (directory-files dir nil mew-regex-message-files 'no-sort))
  
  (defun mew-folder-new-message (folder &optional num-only)
    (let* ((dir (mew-expand-folder folder))
Index: mew-scan.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-scan.el,v
retrieving revision 1.232
retrieving revision 1.233
diff -c -r1.232 -r1.233
*** mew-scan.el	2001/02/16 08:21:18	1.232
--- mew-scan.el	2001/02/17 20:28:53	1.233
***************
*** 709,714 ****
--- 709,715 ----
  	 (virtualp (mew-folder-virtualp folder))
  	 opos reviews)
      (mew-filter
+      (mew-set-buffer-multibyte t)
       (set-buffer folder)
       (setq opos (point))
       (setq reviews mew-summary-buffer-reviews)