mh-e/code-jp.ol

   1 \e$B!X\e(Btm-mh-e \e$B$G\e(B ISO-2022-JP \e$B0J30$NJ8;z\e(B code \e$B$r;H$&J}K!!Y\e(B
   2 by \e$B<i2,\e(B \e$BCNI'\e(B
   3
   4   MTA \e$B$G\e(B ISO-2022-JP \e$B$r\e(B EUC-JP \e$B$d\e(B Shift-JIS \e$B$J$I$K\e(B code \e$BJQ49$7$F$$$k>l\e(B
   5 \e$B9g!"\e(Btm-mh-e \e$B$N\e(B default \e$B$N@_Dj$G$OJ8;z2=$1$7$^$9!#$3$&$7$?$3$H$r9T$J$&\e(B
   6 \e$B$3$H$O$"$^$j4+$a$i$l$?$3$H$G$O$J$$$H;W$$$^$9$,!"$3$3$G$O$3$&$7$?4D6-$G\e(B
   7 tm-mh-e \e$B$r;H$&>l9g$N@_Dj$K$D$$$F@bL@$7$^$9!#\e(B
   8
   9
  10 * Mule \e$B$N>l9g\e(B
  11
  12   tm-mh-e \e$B$NI8=`@_Dj$G$O!"\e(Bcharset parameter \e$B$,B8:_$9$k>l9g$O$=$l$G;XDj\e(B
  13 \e$B$5$l$?J8;z\e(B code \e$B$K$J$j!"\e(Bcharset parameter \e$B$,B8:_$7$J$$>l9g!JHs\e(B MIME
  14 message \e$B$r4^$`!K$N>l9g$NJ8;z\e(B code \e$B$O\e(B *ctext* \e$B$H$J$j$^$9!#\e(B
  15
  16   charset \e$B$,B8:_$7$J$$>l9g$NJ8;z\e(B code \e$B$OJQ?t\e(B
  17 mime/default-coding-system \e$B$G;XDj$5$l$^$9!#$3$N4{DjCM$,\e(B *ctext* \e$B$G$"$j!"\e(B
  18 ISO-8859-1 \e$B$+\e(B ISO-2022-JP \e$B$J$I$N\e(B JUNET \e$BJ}<0$N\e(B ISO-2022 code \e$B$G$"$k$3$H\e(B
  19 \e$B$r4|BT$7$F$$$^$9!#\e(B
  20
  21   charset \e$B$,B8:_$9$k>l9g$O!"JQ?t\e(B mime/charset-coding-system-alist \e$B$K@_\e(B
  22 \e$BDj$5$l$?!"$=$N\e(B charset \e$B$KBP1~$9$k\e(B Mule \e$B$N\e(B coding-system \e$B$,MQ$$$i$l$^$9!#\e(B
  23
  24   \e$B$3$l$i$NF0:n$O4X?t\e(B tm-mh-e/code-convert-region-to-emacs \e$B$G9T$J$o$l$^\e(B
  25 \e$B$9!#$h$C$F!"$3$l$i$NJQ?t$*$h$S4X?t$rJQ99$9$k$3$H$K$h$C$F\e(B MTA \e$B$G\e(B code
  26 \e$BJQ49$5$l$?>l9g$NBP:v$r9T$J$&$3$H$,$G$-$^$9!#\e(B
  27
  28
  29 ** \e$BHs\e(B MIME message \e$B$^$?$O\e(B charset \e$B$,B8:_$7$J$$>l9g$N$_$NBP:v\e(B
  30
  31   \e$BHs\e(B MIME message \e$B$N>l9g!"JQ?t\e(B mime/default-coding-system \e$B$KJ8;z\e(B code
  32 \e$B$r@_Dj$9$l$P\e(B OK \e$B$G$9!#\e(BShift-JIS \e$B$N>l9g$O\e(B
  33
  34         (setq mime/default-coding-system *sjis*)
  35
  36 EUC-JP \e$B$N>l9g$O!"\e(B
  37
  38         (setq mime/default-coding-system *euc-japan*)
  39
  40 \e$B$H$7$F2<$5$$!#\e(B
  41
  42
  43 ** charset \e$B$,B8:_$9$k>l9g$b4^$a$?BP:v\e(B
  44
  45   charset \e$B$,B8:_$9$k>l9g!"JQ?t\e(B mime/charset-coding-system-alist \e$B$K\e(B
  46 "ISO-2022-JP" \e$B$KBP1~$9$k\e(B coding-system \e$B$r\e(B *sjis* \e$B$d\e(B *euc-japan* \e$B$KJQ$(\e(B
  47 \e$B$k$H$$$&$N$,#1$D$NJ}K!$G$9!#C"$7!"$3$N>l9g!"\e(Bencode \e$B$5$l$F85$NJ8;z\e(B code
  48 \e$B$,J]B8$5$l$F$$$k>l9g$KJ8;z2=$1$9$k$3$H$K$J$j$^$9!#\e(B
  49
  50   \e$B$3$N$3$H$r9MN8$9$k$H!"4X?t\e(B tm-mh-e/code-convert-region-to-emacs \e$B$r:F\e(B
  51 \e$BDj5A$9$k$N$,NI$$$H$$$($^$9!#$*$=$i$/!"\e(BISO-2022-JP \e$B0J30$NJ8;z\e(B code \e$B$OJ]\e(B
  52 \e$BB8$5$l$J$$$G$7$g$&$+$i!"0J2<$N$h$&$JDj5A$G==J,$G$7$g$&!#\e(B
  53
  54         (defun tm-mh-e/code-convert-region-to-emacs
  55           (beg end charset &optional encoding)
  56           (code-convert beg end *sjis* *internal*)
  57           )