[Mew-dist 523] (gnus) Distribution field (Re:contrib/gnus/mew-gnus.el)

[Makoto]

                                     Tue Feb 25 22:33:20 1997
                                             千葉市中央区長洲
                                                     藤原  誠
                               makoto at example.com

(1) [Mew-dist 512] の酒井さんのまとめた patch を入れました。
    ありがとうございます。
    それで勝手に版数を 1.54+[Mew-dist 512] として使わせていた
    だいています。(人に使ってもらうような時もあるので、区別
    しておきたいと思ったからです。もっともそちらの方はまだ入
    替えるには至っていませんが)

(2) こちらが本題ですが、contrib/gnus/mew-gnus.el について、

(2-1) Distribution: local となっているような時など、継承して
    欲しいなと思って、添付のような変更をして見ました。合って
    いるでしょうか ? (自分では使えているつもりです。)
 
(2-2) Gnus を使っている時に、新たに記事を書く時に使う、
    a gnus-summary-post-news
    も mew で書きたいと思うのですが、これは(まだ)ないので、
    しょうか ?
---
(藤原)

-------------- next part --------------
--- mew-gnus.el-1.54+	Tue Feb 25 21:42:12 1997
+++ mew-gnus.el	Tue Feb 25 22:28:55 1997
@@ -82,6 +82,7 @@
 	  reply-to (gnus-fetch-field "Reply-to")
 	  to (or reply-to from)
 	  cc (gnus-fetch-field "Cc")
+          distribution (gnus-fetch-field "Distribution")
 	  newsgroups (or (gnus-fetch-field "Followup-To")
 			 (gnus-fetch-field "Newsgroups"))
 	  date (gnus-fetch-field "Date")
@@ -93,7 +94,13 @@
     (mew-draft-mode) ;; for hilight
     (save-excursion
       (goto-char (point-min))
-      (insert (concat "Newsgroups: " newsgroups "\n")))
+      (insert (concat "Newsgroups: " newsgroups "\n")
+	      )
+      (if (stringp distribution)
+        (insert (concat "Distribution: " distribution "\n")
+	      )
+	)
+      )
     (make-variable-buffer-local 'mew-message-citation-buffer) 
     (setq mew-message-citation-buffer gnus-article-buffer))
   (if yank (mew-draft-cite)))