[Mew-dist 04283] mew-summary-save() again

[OKUNISHI Fujikazu]

いつの間にか CDP: を見てくれるようになってたのですね。で、そろそろ 
CDP: サポートも落ち着いてきたと判断し、要望を出したいと思います(^_^;

"y" する時のデフォルトのディレクトリが "~/" で固定されてるのをカスタマ
イズ可能にして欲しいという要望が多いです。なので mew-save-dir パッチを
提供してきましたが、できればマージされると嬉しいです（デフォルトは "~/"）。

あと、βでない古い Mew では CDP: をつけられないのでいまだに CD: にファ
イル名をつけるメッセージが見受けられます。（移行期間中だけでも）過去と
の互換性の面でも CDP: がなければ CD:を見て欲しいです。
;; もちろん "name=" じゃないです。

以下のパッチには上記二つを含んでいます。

-------------- next part --------------
--- mew-summary.el.orig	Mon Mar 23 21:55:46 1998
+++ mew-summary.el	Tue Mar 24 23:38:28 1998
@@ -1666,6 +1666,7 @@
 ;;;
 ;;; Misc
 ;;;
+(defvar mew-save-dir mew-home)  ;; xxx ==> mew-vars
 
 (defun mew-summary-save (&optional user-coding-system)
   "Copy this message or save this part as the file name which 
@@ -1684,12 +1685,18 @@
 	 (syntax (if part (mew-syntax-get-entry-strnum
 			   (mew-cache-decode-syntax cache) part)))
 	 (cdpl (if syntax (mew-syntax-get-cdp syntax)))
+	 (cd (if syntax (mew-syntax-get-cd syntax)))
 	 file)
     (if (not (or msg part))
 	(message "No message or part here")
-      (if (and (car cdpl) (equal (downcase (car cdpl)) "attachment"))
-	  (setq file (mew-syntax-get-member cdpl "filename")))
-      (setq file (mew-input-file-name nil file))
+	(cond
+	  ((and (car cdpl) (equal (downcase (car cdpl)) "attachment"))
+	   (setq file (mew-syntax-get-member cdpl "filename")))
+	  ((not (null cd))
+	    (setq file cd)))
+	 (setq file (mew-input-file-name nil
+	   (if (null file) mew-save-dir
+	     (expand-file-name file mew-save-dir))))
       (if (not (file-exists-p file))
 	  (setq doit t)
 	(if (null mew-file-append-p)
-------------- next part --------------
mew-cs-noconv-eol 方式でも imcat で "-foo" を読むと、メッセージの末尾
にのみ CR が一個ついてしまう（CRLF でなく CR だけがつく）謎の現象に見
舞われています。そこで imcat に入れてもらった binmode(stdout) の評価位
置をもっと根っこに引き上げて戴けないでしょうか?

;; どうせ SJIS 端末ではコマンドラインからは生では読めないので less で
;; 読むことになりますし、テキストでも LF でいいんじゃないかと(^_^;

;;; しかし OS/2 XFree86 上の kterm だったら生で読めるのかも(^_^;;
-------------- next part --------------
--- imcat.in.orig	Mon Mar  2 18:55:00 1998
+++ imcat.in	Sun Mar 22 21:40:32 1998
@@ -74,6 +74,7 @@
 unless ($msg) {
     im_die("no message specified.\n");
 }
+binmode(stdout);
 
 if ($msg =~ /^http:/i) {
     require IM::Http && import IM::Http qw(http_process);
@@ -81,7 +82,6 @@
     if ($rc < 0) {
 	im_die("can't access to message $msg.\n");
     }
-    binmode(stdout);  ## as binary
     foreach (@$data) {
 	print;
     }
-------------- next part --------------
;; で、MEW/00oses の OS/2 の項は消しておいてくださいませ(^_^;;

--ふ
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     286 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19980325/a5a8705e/attachment.bin>