[mew-dist 22434] Re: copy, decrypt, To: mew-dist at example.com

[Satoshi Yatagawa]

谷田川と申します。

> 3. 以下の件、大変気になるのですが、mew2.2 にも存在する問題でしょうか。

Mew 2.2で私も経験しましたので、まだ存在すると思います。

Mew 3.0.68→3.0.69で修正されたコード(添付参照)を切り出して、
Mew 2.2に当てて使っています。Mew 2.3にもそのまま適用できるようです。


> From: Kazu Yamamoto (山本和彦) <kazu at example.com>
> Subject: [mew-dist 21874] Re: sending wrong message to wrong person again
> 
> > 原因は、
> > 	(1) mew-smtp-command-done() の途中で、エラーが起きたときに安全
> >             になっていない。
> > 	(2) メールの送信時に古いバッファの存在をチェックしていない。
> > の 2 つのようです。
> 
> (1) の部分を改良するのは難しそうだったので、(2) で古いバッファがあれば
> 削るようにしました。

 -- yatagawa
-------------- next part --------------
--- mew-smtp.el.orig	Thu Oct 10 10:37:47 2002
+++ mew-smtp.el	Thu Oct 10 10:39:15 2002
@@ -587,8 +587,11 @@
 	   (info (concat file mew-queue-info-suffix))
 	   (server (mew-smtp-get-server pnm))
 	   (port (mew-smtp-get-port pnm))
-	   (ssh-server (mew-smtp-get-ssh-server pnm)))
+	   (ssh-server (mew-smtp-get-ssh-server pnm))
+	   buf)
       (rename-file file work 'override)
+      ;; If an old buffer exists by accident, we MUST remove the buffer.
+      (if (setq buf (get-file-buffer work)) (mew-remove-buffer buf))
       (mew-frwlet
        mew-cs-text-for-read mew-cs-dummy
        (set-buffer (find-file-noselect work)))