[mew-dist 27745] Re: mewest コマンドの拡張子変更対応

[MIYOKAWA, Nobuyoshi]

  三代川です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 27744] Re: mewest コマンドの拡張子変更対応
Date: Mon, 30 Jul 2007 12:04:10 +0900 (JST)
Message-ID: <20070730.120410.171047408.kazu at example.com>

| 質問です。
| 
| 1) mewest の引数から指定できるようにする必要はありませんか？
| 2) Mew から mewest を起動する際に、1) を利用する必要はありませんか？

  私は、mewest コマンドを cron からのみ使用していたので、これ
らの要求を見落としていました。

  先の patch は取り下げ、例えばこんな感じでは、如何でしょう
か? 5.2.50 への patch になります。
--
MIYOKAWA, Nobuyoshi
-------------- next part --------------
diff -ur mew-5.2.50.ORIG/bin/mewest mew-5.2.50/bin/mewest
--- mew-5.2.50.ORIG/bin/mewest	Thu Jan  4 15:49:17 2007
+++ mew-5.2.50/bin/mewest	Mon Jul 30 12:58:59 2007
@@ -16,11 +16,13 @@
 OUTPUT=${OUTPUT:-/dev/null}
 LOCK=${BASEDIR}/.mewest.lock
 CYGWINENV=no
+SUFFIX=${SUFFIX:-.mew}
 
 usage () {
     PROG=`basename $0`
     cat <<__HDT__
 USAGE: ${PROG} [directory]
+  -s specify suffix
   -h help
   -v verbose mode
 __HDT__
@@ -86,7 +88,7 @@
     ;;
 esac
 
-while getopts "hv" OPTION
+while getopts "hvs:" OPTION
 do
     case ${OPTION} in
       h)
@@ -95,6 +97,9 @@
       v)
         OUTPUT=/dev/stdout
         ;;
+      s)
+        SUFFIX=${OPTARG}
+        ;;
       *)
         usage
         ;;
@@ -132,7 +137,7 @@
 ${FIND} "`path_conv \"${TGTDIR}\"`" \
   -type d -name "trash" -prune -o \
   -type d -name ${INDEXDIR} -prune -o \
-  -type f \( -name "[0-9]" -o -name "[0-9]*[0-9]" -o -name "[0-9]*.mew" \) -print |\
+  -type f \( -name "[0-9]" -o -name "[0-9]*[0-9]" -o -name "[0-9]*${SUFFIX}" \) -print |\
   ${ESTCMD} gather -cl -fm -cm -sd -xh "`path_conv \"${BASEDIR}/${INDEXDIR}\"`" - > ${OUTPUT} ||\
     cleanup_lock_exit "Indexing new messages...failed"
 
diff -ur mew-5.2.50.ORIG/bin/mewest.1 mew-5.2.50/bin/mewest.1
--- mew-5.2.50.ORIG/bin/mewest.1	Wed Jul 26 16:15:29 2006
+++ mew-5.2.50/bin/mewest.1	Mon Jul 30 12:46:47 2007
@@ -18,6 +18,9 @@
 .PP
 The options are as follows:
 .TP 8
+.B \-s
+Suffix for mail file.  Default value is '.mew'.
+.TP 8
 .B \-v
 Verbose mode.
 .TP 8
diff -ur mew-5.2.50.ORIG/mew-search.el mew-5.2.50/mew-search.el
--- mew-5.2.50.ORIG/mew-search.el	Wed Jul 25 15:06:59 2007
+++ mew-5.2.50/mew-search.el	Mon Jul 30 12:33:40 2007
@@ -639,7 +639,8 @@
       (message "\"%s\" does not exist" mew-prog-est-update)
     (message "Hyper Estraier indexing for %s..." folder)
     (let* ((path (file-truename (mew-expand-folder folder)))
-	   (pro (start-process "*Mew EST*" nil mew-prog-est-update path)))
+	   (pro (start-process "*Mew EST*" nil mew-prog-est-update 
+			       "-s" mew-suffix path)))
       (set-process-filter pro 'mew-est-index-filter)
       (set-process-sentinel pro 'mew-est-index-sentinel))))