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

[Makoto]

                                     Fri Feb 28 15:04:43 1997
                                             千葉市中央区長洲
                                                     藤原  誠
                               makoto at example.com

酒井さん、御返事ありがとうございます。

〇 Gnus + Mew で、新しい記事を書く時
僕が [Mew-dist 523] で次のように書きましたが、少し言葉が
足りませんでした。

>(2-2) Gnus を使っている時に、新たに記事を書く時に使う、
>    a gnus-summary-post-news
>    も mew で書きたいと思うのですが、これは(まだ)ないので、
>    しょうか ?

キーの割当てですが、mew-gnus.el の中に書いてある設定をすると
次のようになると思います。
        Gnus original   Gnus+Mew
        -------------   -------
新規    a               a
Reply   r               r
Follow  f               r
転送                    f

この a の時は、ちっとも Mew らしくならないのを Mew らしく
したい
ということでした。しかし酒井さんの書かれたものを見ると、
Newsgroup の補完もするということなので、まだ僕の設定が足
りないのかなとも思います。

〇 References: について 
  それから、以前に出たような気もするのですが、References:
  について、直前のものしか持って行かないのは、さびしいなと
  思い、添付のように変更して見ました。
  これは Mew-1.54 に [Mew-dist 512] の修正をした後のものか
  らの差分です。

〇 (だからどうというような問題ではないですが)
    Mew-1.54+[Mew-dist 512] ですが、Emacs 19.31 + Mule 2.3
   では From の日本語の mime が復号されず、また 添付書類
   (multipart) もうまく分けてくれなかったので、19.34 にし
   たら、期待通り動いています。(でもこれは load-path など
   も変更してしまったかも知れないので、勘違いかも知れません)
---
(藤原)
-------------- next part --------------
--- contrib/gnus/mew-gnus.el-1.54+	Tue Feb 25 21:42:12 1997
+++ contrib/gnus/mew-gnus.el	Fri Feb 28 15:00:51 1997
@@ -82,18 +82,31 @@
 	  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")
 	  in-reply-to (mew-header-get-value "Date:")
-	  references (mew-header-get-value "Message-ID:"))
+	  references-new (mew-header-get-value "Message-ID:")
+	  references     (concat
+			  references-new
+                          "\n\t"
+			  (mew-header-get-value "References:")
+			  )
+	  )
     (switch-to-buffer-other-window (find-file-noselect file))
     (mew-draft-rename file)
     (mew-draft-header subject nil to cc in-reply-to references)
     (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)))