[Mew-dist 03647] Re: supporting Message/partial patch

[Hideyuki SHIRAI]

白井@松下電送です。

From: ksakai さん曰く
Subject: [Mew-dist 03641] supporting Message/partial patch
Message-ID: <19980203203813S.ksakai at example.com>
Date: Tue, 3 Feb 1998 20:41:13 +0900

ksakai> Mew で Message/partial をサポートするためのパッチです。

ksakai> 2. @ でマークを付けたメールが 1つ、または何もマークを付けていないとき
ksakai>   に "J" を押した場合は、history データベースにアクセスして、
ksakai>   Message/partial を構成する他のメールを取得し、1つのメールにまとめる。
ksakai> 
ksakai> という仕様にするつもりだったのですが、2 の方はうまく動きません。imcat 
ksakai> の --join オプションもうまく動作しませんので、history の方で何か問題が
ksakai> あるのかもしれません。

この 2. なのですが、imcat --join + MsgDB で動かしています。
# @マークは使っていませんが……

mew-1.91ベースで使っているので、現在の1.93ベースと違うところが多々
あると思いますが、御参考までに私の join を最後にお付けします。

imcat --join がサポートされたときのバージョンから現在の im-84
まで動作OKです。

また、Solaris2.4上のDBとNDBM、Win95のSDBMで動作確認をしています。
Message/partialを送信したメーラとして、mew+im、AL-Mail(Win95)で
の確認をしています。

# これがやりたくて、MsgDBを使っているところがあります。
# うちの会社Partialがやけに多いんです。(AL-Mailから……)

## エラー処理をまったくしていませんので、partialなメールじゃ無い
## ところで"J"すると、空のメールが出来ちゃいます。 

ksakai> 現在は "J" を押したときに入力したフォルダにメールをまとめるだけの動作
ksakai> を行いますが、本当はその時点で Message に表示するべきなのかもしれませ
ksakai> ん。

私の使っているキーも"J"です。 ^^;

### 御参考になれば幸いです。
### というか imcat --join は動いているぞ！！ と言いたかった ^^;;;


(defun mew-summary-partial-join ()
  "Join Message/Partial mail."
  (interactive)
  (let* ((fld (mew-summary-folder-name))
	 (msg (mew-summary-message-number))
	 (joinbuf (get-buffer-create mew-buffer-burst))
	 (errbuf (get-buffer-create mew-buffer-tmp)))
    (save-excursion
      (cond 
       ((and (null msg) (null part))
	(message "No message"))
       (t
	(call-process mew-prog-imcat nil joinbuf nil "--join" fld msg)
	(set-buffer joinbuf)
	(unwind-protect
	    (message "Now partial-join %s %s" fld msg)
	  (call-process-region (point-min) (point-max)
			       mew-prog-imstore nil errbuf nil (format "--dst=%s" fld))
	  (set-buffer errbuf)
	  (if (zerop (buffer-size))
	      ()
	    (message "%s" (buffer-string)))
	  (kill-buffer joinbuf)
	  (kill-buffer errbuf))))))
  (mew-summary-ls))