Re: Meadowのプロセス名を変更するには

[Shun-ichi GOTO <gotoh@xxxxxxxxxxx>]

>>>>> On Fri, 14 Sep 2007 11:31:48 +0900 (JST), TSURUDA Naoki wrote,
> > ヘッダが空というのはどうやって判断しましたか？
> 
> 受信したファイル(ex. ~/Mail/inbox/1234)を Meadow で開き、送信時に付加
> したはずの Header 情報がない事、Body 部が全く存在しない事を確認しまし
> た。
> 
> > 受信したメールファイルそのもの(ex. ~/Mail/inbox/1234 の中身はどうなってますかね。
> > meadowで開くとそれなりに行はありますか？ まったくない？
> 
> 以下が受信したメールファイルそのもの(一部伏せ字)です。

んー、先のパッチと同等の判定を行なってる部分が他にもあったので、
それらも直してみたらどうでしょう。
# 以下のパッチは先の修正も含んでいます。



diff -r 65c095b3124d mew-smtp.el
--- a/mew-smtp.el	Thu Sep 13 16:44:36 2007 +0900
+++ b/mew-smtp.el	Fri Sep 14 13:12:30 2007 +0900
@@ -194,7 +194,7 @@
       ;;
       (while (and (< cont (point-max)) (not (input-pending-p)) (< i N))
         (let ((next (min (point-max) (+ cont inc))))
-	  (if (and (processp pro) (eq (process-status pro) 'open))
+	  (if (and (processp pro) (member (process-status pro) '(open run)))
 	      (process-send-region pro cont next))
           (setq cont next)
           (setq i (1+ i))))
@@ -232,7 +232,7 @@
 (defun mew-smtp-command-quit2 (pro pnm)
   ;; error is set
   (mew-smtp-set-done pnm t)
-  (when (and (processp pro) (eq (process-status pro) 'open))
+  (when (and (processp pro) (member (process-status pro) '(open run)))
     (mew-smtp-set-status pnm "quit")
     (mew-smtp-process-send-string pro "QUIT")))
 
@@ -357,7 +357,7 @@
 (defun mew-smtp-process-send-string (pro &rest args)
   (let ((str (apply 'format args)))
     (mew-smtp-debug "=SEND=" str)
-    (if (and (processp pro) (eq (process-status pro) 'open))
+    (if (and (processp pro) (member (process-status pro) '(open run)))
 	(PROCESS-SEND-string pro (concat str mew-cs-eol))
       (message "SMTP time out"))))
 
@@ -371,7 +371,7 @@
 	(pro (mew-smtp-get-process pnm))
 	pass)
     (setq pass (mew-input-passwd prompt tag))
-    (unless (and (processp pro) (eq (process-status pro) 'open))
+    (unless (and (processp pro) (member (process-status pro) '(open run)))
       (mew-passwd-set-passwd tag nil))
     pass))



--
Shun-ichi Goto