[Mew-dist 1896] Re: nntp HEAD command ?

[H.Shirai]

白井です。

From: motonori さん曰く
Subject: [Mew-dist 1885] Re: nntp HEAD command ?
Message-ID: <19970904203330D.motonori at example.com>
Date: Thu, 04 Sep 1997 20:33:30 +0900

Shirai> imlsでNetNewsを読んでみようとしたら、以下のエラーになりました。

Shirai> うちのサーバ(なんと、Win-NT上で動いている)が XOVER に対応してい
Shirai> ないのが、諸悪の根源なのですが、get_header_sub は実装される予定
Shirai> はあるのでしょうか？

motonori> 失礼しました。以下のパッチを当てください。

素早い対応ありがとうございます。
動作確認しました。

# 本当はサーバを変えてもらいたいのだけど、XOVERに対応していない
# とMS-INが動かないという、とても魅力的な副作用がありますので。(^^;


話はかわるのですが、imcatでmessage-partialが扱えるということで、
以下のelispを書いて『J』にKeyを割り当てて使っているのですが、
elispの初心者のため、良いのか悪いのかの判断もつきません。

DBに登録されていないときは、日付が01/01のメールが出来るので全く
エラーチェックをしていません。そのときは、mew-summary-imhist-add
を動かして、DBを更新しています。(『H』がいいかな？)

lisperの方々、いかがなものでしょう？ 御指導下さるとありがたいで
す。mew-prog-im*** のない物は、適時defvarしました。

------------------------------------------------------------
(defun mew-summary-partial-join ()
  (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))
	      (mew-summary-ls)
	    (message "%s" (buffer-string)))
	  (kill-buffer joinbuf)
	  (kill-buffer errbuf)))))))

(defun mew-summary-imhist-add ()
  (interactive)
  (let* ((fld (mew-summary-folder-name))
	 (errbuf (get-buffer-create mew-buffer-tmp)))
    (save-excursion
      (message "Now imhistory %s" fld)
      (call-process mew-prog-imhist nil errbuf nil (format "--add=%s" fld))
      (message "Now imhistory %s ...done" fld)
      (kill-buffer errbuf)
      )))