[Mew-dist 181] Re: Thanx (Re: news posting from Mew)

[Ryosuke Namba]

なんばです。

おかげさまで、[Mew-dist 80] のパッチと、impost-0.95 で news の送信がで
きるようになりました。どうもありがとうございます。

お礼がわりというのもなんですが、[Mew-dist 80] のパッチで少しだけ気にな
るところがあったので、以下のようにする差分を作って添付します。

・news の follow 記事の draft で、 References: を残すようにした。
 (オリジナルではフォローした記事より前の記事への reference がなくなる)
・news の follow 記事の draft で、 In-Reply-To: を Your message of...
 ではなくて ---'s message of ... にした。
 (これはどっちでもいい気がしますが一応。。。)

このパッチは [Mew dist 80] のパッチを当てたあとのソースに対して当てて
使います。

---
	なんばりょうすけ
	http://www.aianet.or.jp/~rna/	mailto:nanba at example.com
-------------- next part --------------
--- mew-summary.el.80	Tue Nov 26 22:24:22 1996
+++ mew-summary.el	Tue Nov 26 22:20:15 1996
@@ -1297,7 +1297,11 @@
 	    (if (and subject (not (string-match "^Re:" subject)))
 		(setq subject (concat "Re: " subject)))
 	    (setq in-reply-to (mew-header-get-value "Date:"))
-	    (setq references (mew-header-get-value "Message-ID:"))
+	    (if (null newsgroups)
+		(setq references (mew-header-get-value "Message-ID:"))
+	      (setq references 
+		    (concat (mew-header-get-value "Message-ID:")
+			    "\n\t" (mew-header-get-value "References:"))) )
 	    ;;
 	    (pop-to-buffer cbuf) ;; draft
 	    (mew-draft-header subject nil to cc newsgroups in-reply-to references)
--- mew-draft.el.80	Tue Nov 26 22:24:32 1996
+++ mew-draft.el	Tue Nov 26 22:45:53 1996
@@ -452,9 +452,19 @@
   (and mew-dcc  (mew-header-insert-here "Dcc:" mew-dcc))
   (and mew-reply-to (mew-header-insert-here "Reply-To:" mew-reply-to))
   ;; xxx date to in-reply-to ?
-  (and in-reply-to (mew-header-insert-here 
-		    "In-Reply-To:"
-		    (concat "Your message of \"" in-reply-to "\"")))
+  (let (ttf irt-msg)
+    (if (null newsgroups)
+	(setq irt-msg (concat "Your message of \"" in-reply-to "\""))
+      (progn
+	(cond
+	 ((stringp to) (setq ttf to))
+	 ((listp to) (setq ttf (car to)))
+	 (t (setq ttf "???"))
+	 )
+	(setq irt-msg (concat ttf "\'s message of " in-reply-to )) )
+      )
+    (and in-reply-to 
+	   (mew-header-insert-here "In-Reply-To:" irt-msg)) )
   (and references (mew-header-insert-here "References:" references))
   (if (and mew-x-face-file
 	   (file-exists-p (expand-file-name mew-x-face-file)))