[Mew-dist 03837] making "w" much much faster

[Kazu Yamamoto ( 山本和彦 )]

以下のパッチを当ててみて下さい。draft モードを用意する時間が劇的に短縮
されます。

＃ やっぱり、immv、imrm、imclean は捨てよう。逃避で elisp を書こう。

--かず

Index: mew-func.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-func.el,v
retrieving revision 1.6
diff -c -r1.6 mew-func.el
*** mew-func.el	1998/01/28 12:39:03	1.6
--- mew-func.el	1998/02/19 01:32:40
***************
*** 338,354 ****
  	  )))))
  
  (defun mew-folder-new-message (folder &optional num-only)
!   (save-excursion
!     (mew-set-buffer-tmp)
!     (mew-im-call-process mew-prog-impath folder "new")
!     (goto-char (point-min))
!     (if (re-search-forward "\\([0-9]+\\)$" nil t)
! 	(if num-only
! 	    (mew-match 1)
! 	  (beginning-of-line)
! 	  (let ((start (point)))
! 	    (forward-line)
! 	    (mew-buffer-substring start (1- (point))))))))
  
  ;;
  ;; Directory
--- 338,357 ----
  	  )))))
  
  (defun mew-folder-new-message (folder &optional num-only)
!   (let ((files (directory-files (mew-expand-folder folder)))
! 	(max 1) cur file)
!     (while files
!       (setq file (car files))
!       (setq files (cdr files))
!       (if (not (string-match "^[0-9]+$" file))
! 	  ()
! 	(setq cur (string-to-int file))
! 	(if (> cur max)
! 	    (setq max cur))))
!     (setq max (int-to-string (1+ max)))
!     (if num-only
! 	max
!       (mew-expand-folder folder max))))
  
  ;;
  ;; Directory