[Mew-dist 08551] Re: scan-sentinel-hook

[Yoshinari NOMURA]

On Sat, 10 Apr 1999 18:13:42 +0900,
	Yoshinari NOMURA <nom at example.com> said:

> の中で、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:17:26 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,10 +270,12 @@
 		 (> (length (directory-files mew-queue-path)) 2))
 	    (progn
 	      (sit-for 1)		; wait
-	      (mew-summary-flush-queue)))
-	(run-hooks 'mew-summary-inc-sentinel-hook))
-       ((string-match mew-prog-imls prog)
-	(run-hooks 'mew-summary-scan-sentinel-hook))))))
+	      (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)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;