[Mew-dist 303] Re: How to reply from Gnus-5.3 with mew?

[Mito]

※ "酒" こと ksakai at example.com さんの
   Message-Id: <19961212220335H.ksakai at example.com>
   『[Mew-dist 274] Re: How to reply from Gnus-5.3 with mew?』からの引用です。

酒> よくよく考えてみたら、gnus-mail-reply-using-mew,
酒> gnus-mail-forward-using-mew は GNUS のインターフェースを通さずに直接使
酒> えばいいことに気がつきました。そこで、mew-gnus.el を以下のようにしてみ
酒> たのですが、どうでしょうか。

今更ながら試してみました。とってもいいです。
impost を使えば Gnus からのフォローも Mew を直接使えますね。

で、Gnus+tm で NetNews を読んでて gnus-summary-save-in-mew 
でフォルダにセーブするとマルチパートが tm でデコードされたま
ま、

[1  <text/plain; ISO-2022-JP (7bit)>]
ぱーと１
[2  <text/plain; ISO-2022-JP (7bit)>]
ぱーと２

のような感じで保存されてしまうので、デコードしないで保存する
ように修正しました。
動作確認は、
GNU Emacs 19.34.2 (mips-nec-sysv4, X toolkit)
Mule Version 2.3 (SUETSUMUHANA)
Gnus v5.2.40; nntp 4.0; nnspool 2.0
tm-7.96
で行いました。

同様に gnus-mail-forward-using-mew も同じようにデコードしな
いままフォワードするようにしました。

gnus-mail-reply-using-mew はデコードしてあったほうがいいと思
いましたので修正していません。

tm や Gnus 自体よくわかってないのでやってみたらできたという
だけのものです。変なところがあったら指摘してください。

酒> # mew-dist に流れた mew-gnus.el に関するパッチはすべて当ててあるはずで
酒> # す。

＃ mew-gnus-save-fixed-folder があってとっても嬉しかったです。(_ _)
-- 
12/17 15:06頃
NECソフトウェア新潟  水戸嘉嗣
mailto:mit at example.com

-------------- next part --------------
--- mew-gnus.el.orig	Tue Dec 17 13:50:31 1996
+++ mew-gnus.el	Tue Dec 17 14:32:23 1996
@@ -33,7 +33,8 @@
   "Save this article to MH folder (using `rcvstore' in MH library).
 Optional argument FOLDER specifies folder name."
   (interactive)
-  (gnus-summary-select-article gnus-save-all-headers gnus-save-all-headers)
+  (let ((gnus-show-mime nil))
+    (gnus-summary-select-article gnus-save-all-headers gnus-save-all-headers))
   (gnus-eval-in-buffer-window gnus-article-buffer
     (save-restriction
       (widen)
@@ -91,9 +92,12 @@
       (save-excursion
 	(mew-set-environment)))
   (let* ((buffer
-	  (if (string-match "v5" gnus-version)
-	      (pop-to-buffer (or buffer gnus-article-buffer))
-	    (current-buffer)))
+	  (if (not (string-match "v5" gnus-version))
+	      (current-buffer)
+	    (if gnus-show-mime
+		(let ((gnus-show-mime nil))
+		  (gnus-summary-select-article t 'force)))
+	    (pop-to-buffer (or buffer gnus-article-buffer))))
 	 (subject (concat "[" gnus-newsgroup-name "] "
 			  (or (gnus-fetch-field "subject") "")))
 	 (file (mew-draft-get-new))