[Mew-dist 16746] Re: No recipient message

[Tatsuya Kinoshita]

In message "[Mew-dist 16744] Re: No recipient message"
Masahiro Suzuki <msuzuki at example.com> wrote:

> 試してみました。残念ながらlockされる状況は再現できませんでした。
> 
> ただ今回は、作成したメールをC-cC-cして、サーバーに弾かれたメールは
>  +queueに残っているのですが、ここで内容を確認して、+queueで再びC-cC-c
> すると、「No Recipient!」と出て、消滅する('s'+'all'で見れない状態になる)

その「No Recipient!」の直後に再度C-c C-cとすると、「locked」と表示
されるはずです。

サーバに拒否された場合など、recoverの際に、+queue/*.mqiの内容が送信
前の状態とは変わってしまうことが原因のようです。+queue/*.mqiが元の
まま残るよう、変更してみました。

「No Recipient!」の際にlockされてしまう部分はさわっていません。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute, and/or modify it 
 without restriction.  There is NO WARRANTY.

--- mew-1.95b112/mew-smtp.el	Sat Mar  3 12:39:54 2001
+++ mew-1.95b112-tats20010308/mew-smtp.el	Thu Mar  8 19:43:31 2001
@@ -491,7 +491,7 @@
 
 ;; qdir -> qfld
 
-(defun mew-smtp-queue (pnm err)
+(defun mew-smtp-queue (pnm err &optional recover)
   ;; Must be in a buffer where a message is contained.
   (let* ((oname (buffer-name))
 	 (orig (buffer-file-name))
@@ -509,7 +509,8 @@
     (setq file-info (concat file mew-queue-info-suffix))
     (setq nname (concat (file-name-as-directory qfld)
 			(file-name-nondirectory file)))
-    (mew-lisp-save file-info (mew-info pnm))
+    (unless (and recover (file-exists-p file-info))
+      (mew-lisp-save file-info (mew-info pnm)))
     (mew-remove-buffer (current-buffer))
     (message "%s has been queued to %s (%s)"
 	     oname nname (or (mew-smtp-get-error pnm) err))
@@ -560,7 +561,7 @@
 (defun mew-smtp-recover (pnm err)
   (set-buffer (process-buffer (get-process pnm)))
   (mew-smtp-log pnm err)
-  (mew-smtp-queue pnm err)
+  (mew-smtp-queue pnm err 'recover)
   (let ((back (mew-smtp-get-messages pnm)))
     (mew-smtp-close pnm)
     (mew-smtp-set-messages pnm back)