Newsgroups: fj.mail,fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!aist-nara!oskgate0.mei!chorus.mei!tf1neptune.mei!sasai
From: a-sasai@isl.mei.co.jp
Subject: Re: [Q] Draft-Folder
Message-ID: <CMqqro.5D2@tf1neptune.isl.mei.co.jp>
Sender: news@tf1neptune.isl.mei.co.jp
Nntp-Posting-Host: iona
Organization: Matsushita Electric Industrial Co.,Ltd. Osaka, Japan
X-Newsreader: mnews [version 1.17] 1994-01/21(Fri)
References: <INAMURA.94Mar15125203@caesar.nsis.cl.nec.co.jp>
	<1994Mar15.105143.12610@nntp.csl.sony.co.jp>
	<INAMURA.94Mar16105139@silk1.nsis.cl.nec.co.jp>
Distribution: fj
Date: Wed, 16 Mar 1994 04:50:12 GMT
Lines: 42
Xref: galaxy.trc.rwcp.or.jp fj.mail:1474 fj.editor.emacs:4549
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.mail&nb=1474&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B:4!90f!w>>2<EE4o$G$9!#(B

$B:G6a!"CN$C$?$P$+$j$N$3$H$J$s$G$9$,!"(B

<INAMURA.94Mar16105139@silk1.nsis.cl.nec.co.jp>$B$N5-;v$K$*$$$F(B
inamura@nsis.cl.nec.co.jp$B$5$s$O=q$-$^$7$?!#(B

>$B:G=i$O(B send $B$K%*%W%7%g%s$rM?$($F(B postproc $B$rJQ99$G$-$k$@$m$&(B
>$B$+$i!"(Bmh-e $B$N(B mh-send-letter $B$K$A$g$C$H%f!<%6%$%s%?%U%'!<%9(B
>$B$rDI2C$7$F$d$l$P$h$+$m$&$H7Z$/9M$($?$s$G$9$,!"$=$&$$$&%*%W%7%g(B
>$B%s$O$J$$$s$G$9$M!#$@$+$i(B interactive $B$K(B postproc $B$rJQ99$7$h(B
>$B$&$H;W$&$H!"$$$A$$$A(B ~/.mh_profile $B$r=q49$($J$-$c$J$i$s$J$!!"(B
>$B$H$+G:$s$8$c$C$F!#(B

$B$3$l$C$F!"(B

mh-before-send-letter-hook

$B$r;H$C$F(Bfilter$B$rA*Br$5$;$l$P$$$$$N$G$O!)(B
$B!t$4B8CN$G$7$?$i$9$_$^$;$s(B(__;

$B;d$O$3$N%U%C%/$rMxMQ$7$F(BMIME$B%(%s%3!<%I$7$FAw$k$+H]$+$NA*Br$r%a!<%k$rAw(B
$B$kKh$KA*Br$9$k$h$&$K$7$F$$$^$9!#(B

(defun choice-mime-encode (&optional arg)
  (interactive "cMIME encode (Y/N):")
  (setq arg (upcase arg))
  (if (string-match "[Y]" (char-to-string arg))
      (setq mh-send-args "-hencode"))
  (if (string-match "[N]" (char-to-string arg))
      (setq mh-send-args "-nohencode")))
(defun my-before-send-letter-hook-func ()
  (interactive)
  (call-interactively 'choice-mime-encode))
(setq mh-before-send-letter-hook 'my-before-send-letter-hook-func)

$B$3$s$J6q9g$K=q$$$F$_$?$s$G$9$,!"B?J,!"L5BL$,$$$C$Q$$$"$k$H;W$$$^$9$N$G(B
$B$I$J$?$+E::o$r$*4j$$$7$^$9!#(B(__;

$B!tK\Ev$O",$,$$$$$?$+$C$?$s$G$9!D(B(^^;

$B!A:4!90f!w(Belisp$B=i?4<T!D(B
