[mew-dist 25792] mew-summary-set-case when running smtp

[Hideyuki SHIRAI ( 白井秀行 )]

知り合いと "C" で case を変えることについて、話していたときに出
た話ですが、

> +queue から吐き出している時に case を変えると、頻繁に本文が行
> 方不明になったりするので、それは無意識に避けるようになりました。

とのこと。コードを読んでいないし、実験もしていないので真偽不明で
すが、危なそうならガードしておいた方が良いのではないでしょうか。


(1) なにがなんでもガードしちゃおう

(defun mew-process-exist-p ()
  (let ((process (process-list))
	(regexp (concat "^"
			(regexp-opt `(,mew-smtp-info-prefix
				      ,mew-pop-info-prefix
				      ,mew-imap-info-prefix
				      ,mew-nntp-info-prefix)))))
    (catch 'detect
      (while process
	(when (string-match regexp (process-name (car process)))
	  (throw 'detect t))
	(setq process (cdr process))))))


(defun mew-summary-set-case (&optional output)
  (interactive "P")
  (if (mew-process-exist-p)
      (message "Anther process is running. Try later.")
    (let (case inbox)
      .....

(2) smtp だけガードしちゃおう

(defun mew-smtp-process-exist-p ()
  (let ((process (process-list))
	(regexp (concat "^" (regexp-quote mew-smtp-info-prefix))))
    (catch 'detect
      (while process
	(when (string-match regexp (process-name (car process)))
	  (throw 'detect t))
	(setq process (cdr process))))))

(defun mew-summary-set-case (&optional output)
  (interactive "P")
  (if (and (or mew-case-synchronize output)
	   (mew-smtp-process-exist-p))
      (message "Anther smtp process is running. Try later.")
    (let (case inbox)
      .....

P.S.
mew-nmz はあと一回パッチを出させてください。
昼休みがはじまったのでこれから書くのだけど :-)

P.P.S.
mew-nmz は tips みたいなのがたくさんあるような気がするので、Wiki
にでも書きますね。

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