[Mew-dist 08550] scan-sentinel-hook

[Yoshinari NOMURA]

乃村です。

の中で、scan の後にカーソルを動かしたいのですが、
(run-hooks 'mew-summary-scan-sentinel-hook) する場所が
seve-excursion でくるまれてるのでうまくいきません。

mew-scan.el を以下のように変更したらうまくいきます。
問題なければ、このようにしてはどうでしょうか。
--
nom


--- mew-scan.el.orig	Mon Apr  5 13:07:35 1999
+++ mew-scan.el	Sat Apr 10 18:06:50 1999
@@ -202,11 +202,11 @@
     (set-buffer obuf)))
 
 (defun mew-summary-scan-sentinel (process event)
-  (save-excursion
-    (set-buffer (process-buffer process)) ;; necessary
-    (let ((prog (process-name process))
-	  (folder (buffer-name))
-	  (msg nil))
+  (let ((prog (process-name process))
+	(folder (buffer-name))
+	(msg nil))
+    (save-excursion
+      (set-buffer (process-buffer process)) ;; necessary
       (if (not mew-summary-buffer-string)
 	  ()
 	(cond
@@ -270,7 +270,9 @@
 		 (> (length (directory-files mew-queue-path)) 2))
 	    (progn
 	      (sit-for 1)		; wait
-	      (mew-summary-flush-queue)))
+	      (mew-summary-flush-queue)))))
+      (cond
+       ((string-match mew-prog-imget prog)
 	(run-hooks 'mew-summary-inc-sentinel-hook))
        ((string-match mew-prog-imls prog)
 	(run-hooks 'mew-summary-scan-sentinel-hook))))))