[Mew-dist 03837] making "w" much much faster
Kazu Yamamoto ( 山本和彦 )
Kazu at example.com
1998年 2月 19日 (木) 10:35:36 JST
以下のパッチを当ててみて下さい。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
Mew-dist メーリングリストの案内