[Mew-dist 06589] Re: mew-summary-get with Config value

[Motonori Nakamura]

>>>>> On Wed, 30 Sep 1998 14:53:13 +0900, Kazumi HARA <hara at example.com> said:

> 多分、imget からの画面出力を +inbox に格納されたメッセージのものだと
> mew が思ってしまうのが問題だと思うのですが、そうだとすると、例えば、
> +inbox 以外への格納の場合は、imget が scan 出力を出さないようにする、
> というのは、解決になりますか?

hara> 今の感覚だけで話してしまえば、例えば「~/.im/Config で InboxFolder など
hara> も case で切り替えられたらうれしいのかな?」という事でしょうか。

まずは imget 側で、InboxFolder と --dst が等しい場合のみ、scan 出力される
ようにするパッチです。imget に --scaninboxonly を指定してください。
指定しない場合は、従来通りです。
あと、imget の --dst のデフォルトは決めうち +inbox でなく、InboxFolder に
従うようにしました。

--- imget.in-	Wed Sep 23 18:20:18 1998
+++ imget.in	Mon Oct  5 10:17:00 1998
@@ -29,7 +29,7 @@
 use strict;
 use vars qw($Prog $EXPLANATION @EnvConfig @OptConfig
 	    $INSECURE $SUIDROOT
-	    $opt_quiet $opt_noscan $opt_form $opt_jissafe
+	    $opt_quiet $opt_noscan $opt_scaninboxonly $opt_form $opt_jissafe
 	    $opt_width $opt_lock $opt_count $opt_keep $opt_protokeep $opt_src
 	    $opt_dst $opt_mode $opt_assoc $opt_verbose $opt_debug $opt_help
 	    $opt_buffer);
@@ -59,9 +59,10 @@
 	"\t\t\t\t'imap[/AUTH|/LOGIN][:user][\@host]'\n" .
 	"\t\t\t\t'nntp:group[\@host]' or\n" .
 	"\t\t\t\t'stdin'" ,
-    'dst;s;+inbox;'    =>
+    'dst;s;;'    =>
 	'Message destination: "+folder" or "=locally.saved.news".',
     'noscan;b;;'       => 'No scan listings.',
+    'scaninboxonly;b;;'=> 'Do not show scanned-lines if InboxFolder != dst.',
     'form;s;;'	       => 'Scan format',
     'buffer;B;;'       => 'Make output data buffered',
     'jissafe;b;;'      => 'Safe manner for JIS',
@@ -123,6 +124,7 @@
 read_env(\@EnvConfig);
 read_cfg();
 set_selector($selector) == 0 or exit 1 if defined($selector);
+$opt_dst = inbox_folder() if ($opt_dst eq '');
 my $cnf_src = $opt_src; $opt_src = '';
 my $cnf_dst = $opt_dst; $opt_dst = '';
 my $cnf_assoc = $opt_assoc; $opt_assoc = '';
--- IM/MsgStore.pm-	Mon Oct  5 09:48:48 1998
+++ IM/MsgStore.pm	Mon Oct  5 10:05:32 1998
@@ -15,7 +15,8 @@
 require Exporter;
 
 use Fcntl;
-use IM::Config qw(getsbr_file msg_mode msgdbfile expand_path no_sync file_attr);
+use IM::Config qw(getsbr_file msg_mode msgdbfile expand_path
+		  inbox_folder no_sync file_attr);
 use IM::Util;
 use IM::Folder qw(message_number message_name create_folder touch_folder);
 use IM::Header qw(gen_date);
@@ -144,7 +145,8 @@
 	my %Head;
 	store_header(\%Head, join('', @Hdr));
 
-	unless ($main::opt_noscan) {
+	unless ($main::opt_noscan
+	 || ($main::opt_scaninboxonly && (inbox_folder() ne $dst))) {
 	    splice(@$Msg, 0, $hcount);
 	    $Head{'body:'} = &parse_body($Msg, 1);
 
--- man/imget.jis-	Fri Aug 28 07:43:20 1998
+++ man/imget.jis	Mon Oct  5 10:18:58 1998
@@ -8,6 +8,9 @@
 	--verbose=<sw>	on: 処理に関するさまざまな情報を表示する。
 	--debug=<sw>	on: デバッグメッセージを表示する。
 	--noscan=<sw>	on: get の際に scan 表示を行わない。
+	--scaninboxonly=<sw>
+			on: InboxFolder と --dst に指定された格納先フォルダが
+			    等しい場合にのみ scan 表示を行う
 	--form=<string> scan 表示用のフォーマットを記述する。
 	--jissafe=<sw>	on: scan 表示のフォーマット処理の際に、ISO-2022-JP
 			    等のエスケープシーケンスを考慮する。
@@ -105,6 +108,7 @@
 			pop あるいは imap とのみ記述した場合に参照され、
 			オプションを一つでも続けて指定した場合は無視される。
 	--dst=<string>	get 先のフォルダを指定する。
+			省略時のデフォルトは Config の InboxFolder に従う。
 	--mode=<string>	imget の動作を指定する。
 			get:   新着メッセージをフォルダに取り込む。
 			from:  新着メッセージの From: 行を表示する。

- motonori