[Mew-dist 127] Re: Following up with Mew and impost (Re: Mew 1.51)

[Maybe TABOO]

>>>> On Thu, 21 Nov 1996 12:59:28 +0900,
>>>> Maybe TABOO <y-koga at example.com> said:

> > 投稿時に確認するようにしてみました (うっかり意図していないのに NetNews 
> > に投稿することを防ぐため)。mew-ask-newsgroups が nonnil なら確認し、n 
> > を入力したら Newsgroups: フィールドを削除します。
> > ついでに、指定したヘッダフィールドを削除する関数を用意して、ct:, cte: 
> > の削除のところを少しすっきりさせました。

↑と impost を利用して、GNUS から簡単に投稿できるようにするための 
mew-gnus.el のパッチです。mew-send を実行した後で Newsgroups: を追加し
ているので、少々動作がださいのが難ですが、変更は小さく済んでいます。

~/.emacs では、

(add-hook 'gnus-summary-mode-hook
	  '(lambda ()
	     (require 'mew-gnus)
	     (define-key gnus-summary-mode-map "f" 'gnus-summary-reply)
	     ))
(setq gnus-mail-reply-method 'gnus-mail-reply-using-mew)
(setq gnus-mail-forward-method 'gnus-mail-forward-using-mew)
(setq gnus-mail-other-window-method 'gnus-mail-other-window-using-mew)

とでもしておけばよいでしょう。
----
こがよういちろう＠ＮＥＣ ＮＷ技研
y-koga at example.com

--- mew-gnus.el.ORG	Sat Nov 23 14:26:21 1996
+++ mew-gnus.el	Sat Nov 23 20:08:54 1996
@@ -48,7 +48,7 @@
           (setq gnus-newsgroup-last-folder folder))))))
 
 (defun gnus-mail-reply-using-mew (&optional yank)
-  (let (from cc subject date to reply-to
+  (let (from cc subject date to reply-to newsgroups
 	     (buffer
 	      (progn (and (string-match "v5" gnus-version)
 			  (pop-to-buffer gnus-article-buffer))
@@ -62,9 +62,14 @@
                           (concat "Re: " subject) subject))
             reply-to (gnus-fetch-field "reply-to")
             cc (gnus-fetch-field "cc")
+	    newsgroups (or (gnus-fetch-field "followup-to")
+			   (gnus-fetch-field "newsgroups"))
             date (gnus-fetch-field "date"))
       (setq to (or reply-to from))
       (mew-send to (or cc "") subject)
+      (save-excursion
+	(goto-char (point-min))
+	(insert (concat "Newsgroups: " newsgroups "\n")))
       (make-variable-buffer-local 'mew-message-citation-buffer) 
       (setq mew-message-citation-buffer gnus-article-buffer))
     (if yank (mew-draft-cite))))