[mew-win32 4465] Re: MasterPW に C-g 連打 で固まる

Kazu Yamamoto (山本和彦) <[email protected]>
Newsgroups gmane.mail.mew.windows
Message-ID <[email protected]>

> (1) mew-rendezvous()  C-g 



+(defmacro mew-rendezvous (who &optional iquit)
   ;; Wait for the termination of WHO.
   ;; Emacs does not provide synchronize mechanism with
   ;; an asynchronous process. So, take this way. 
-  `(while ,who
-     (sit-for 0.1)
-     ;; accept-process-output or sleep-for is not enough
-     (discard-input)))
+  `(let ((inhibit-quit ,iquit))
+     (while ,who
+       (sit-for 0.1)
+       ;; accept-process-output or sleep-for is not enough
+       (discard-input)
+       (when (and inhibit-quit quit-flag)
+	 (setq ,who nil)))))

mew-ssh/ssl 
	(mew-rendezvous (null (mew-ssl-get-status pnm)))
setq 



(condition-case nil
    (mew-rendezvous mew-passwd-rendezvous)
  (quit (setq mew-passwd-rendezvous nil)))



C-g  sentinel 

sentinel  set-buffer 



--
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.