[Mew-dist 16746] Re: No recipient message
Tatsuya Kinoshita
tatsuyak at example.com
2001年 3月 8日 (木) 20:03:14 JST
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)
Mew-dist メーリングリストの案内