[mew-dist 22969] Re: 取り込めないメール

[Kazu Yamamoto ( 山本和彦 )]

From: Koga Youichirou <y-koga at example.com>
Subject: [mew-dist 22965] Re: 取り込めないメール

>     (process-send-region pro (point-min) (point-max))))
> 
> ですね。

そうです。でも何でこんなことを聞かれるんだろうと思ったら、以下のメール
が配送されていませんね。確かに送ったのに、どこにいっちゃったんだろう？

> ちょうど今問題に遭遇したので試してみましたが、うまくいきました。
> しばらく様子を見て、よさそうならまたおしらせします。

process-send-string() が問題なら、以下の方法でも直るかもしれません。念
のためですが、オリジナルに当てて下さい。(mew-pop-process-send-string() 
を再定義せずに。)

Index: mew-pop.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-pop.el,v
retrieving revision 1.145
diff -c -r1.145 mew-pop.el
*** mew-pop.el	2003/01/16 11:03:32	1.145
--- mew-pop.el	2003/01/22 04:12:35
***************
*** 507,514 ****
        (insert (format "\n<%s>\n%s\n" label string)))))
  
  (defun mew-pop-process-send-string (pro &rest args)
!   (let ((str (apply 'format args)))
!     (process-send-string pro (concat str mew-cs-eol))))
  
  (defun mew-pop-scan-header ()
    (goto-char (point-min))
--- 507,516 ----
        (insert (format "\n<%s>\n%s\n" label string)))))
  
  (defun mew-pop-process-send-string (pro &rest args)
!   (let ((str (concat (apply 'format args) mew-cs-eol)))
!     (if (fboundp 'string-as-unibyte)
! 	(setq str (string-as-unibyte str)))
!     (process-send-string pro str)))
  
  (defun mew-pop-scan-header ()
    (goto-char (point-min))


--かず
-------------- next part --------------
添付メールを保管しました...
送信者: Kazu Yamamoto (=?iso-2022-jp?B?GyRCOzNLXE9CSScbKEI=?=)
 <kazu at example.com>
件名:   [mew-dist 22921] Re:
 =?iso-2022-jp?B?GyRCPGgkajl+JGEkSiQkJWEhPCVrGyhC?=
日付:   Mon, 20 Jan 2003 17:33:32 +0900 (JST)
サイズ: 2631 バイト
URL:    <http://www.mew.org/pipermail/mew-dist/attachments/20030122/bb30d60c/attachment.mht>