[mew-dist 24323] local scan をちょっとだけ速く

[Hideyuki SHIRAI ( 白井秀行 )]

## もう一丁 ^^;;;

local な scan ですが、添付のパッチのようにすると、650通の
folder で scan にかかる時間が

(1) folder がネットワーク越しにあるとき (Meadow から samba)
 83秒 => 71秒 (15% 速度向上)

(2) Xサーバ使っていて、ちょっと描画が遅いかもしれない Emacs21
 88秒 => 68秒 (24% 速度向上)

となりました。XEmacs はキー入力をしたときに動作がガタガタするの
でそのままにしてあります。また、(1), (2) 以外の幸せな条件だとあ
まり速度は変わりませんでしたが、あてて貰えるとちょっとうれしいで
す。

# (2) と同じ条件の XEmacs が 22秒なのが悔しい。

-- 
白井秀行 (mailto:shirai at example.com)


--- mew-local.el.orig	Tue Jan  6 20:18:35 2004
+++ mew-local.el	Tue Jan  6 11:46:14 2004
@@ -316,6 +316,8 @@
      (goto-char (point-max))
      (forward-line -1)
      (when (looking-at "^\\.$")
+       (unless mew-xemacs-p
+	 (process-send-string process "\n"))
        (mew-dot-delete)
        (goto-char (point-min))
        (unless first
@@ -333,8 +335,9 @@
        (mew-scan-body vec draftp)
        (mew-scan-insert-line bnm vec width nil mark)
        (delete-region (point-min) (point-max))
-       (mew-timing) ;; for XEmacs
-       (process-send-string process "\n")))))
+       (when mew-xemacs-p
+	 (mew-timing) ;; for XEmacs
+	 (process-send-string process "\n"))))))
 
 (defun mew-local-sentinel (process event)
   (let* ((pnm (process-name process))