🚀 go-pugleaf

<YAS.08Apr28185258@kirk.is.tsukuba.ac.jp>$B$N5-;v$K$*$$$F(B
yas@is.tsukuba.ac.jp$B$5$s$O=q$-$^$7$?!#(B

>> $B?7>k!wC^GHBg3X>pJs$G$9!#$3$s$K$A$O!#(B
>> 
>> Emacs 22.0 $B$G(B MH-e $B$r;H$*$&$H$7$?$i!"$^$:$O(B scan $B$G(BMIME $B$N%G(B
>> $B%3!<%I$r$7$F$/$l$^$;$s!#$3$l$O!"<!$N%Z!<%8$r8+$D$1$F!"@_Dj$7(B
>> $B$?$i?J$_$^$7$?!#(B
>> 
>>     http://ikumi.que.jp/cmp/mhe.html
>>     (setq mh-scan-format-file nil)
>>     (setq mh-adaptive-cmd-note-flag nil)

 $B$3$l$O$d$C$F$J$$$$$s$G$9$,!D(B
 $B$&$A$G$O!"0J2<$N$h$&$KD>$7$F$$$^$9!#(B

--- mh-mime.el-ORIG     Sun Jan 21 12:00:56 2007
+++ mh-mime.el  Sun Jun 10 19:20:39 2007
@@ -514,7 +514,10 @@
 parsed and then displayed."
   (let ((handles ())
         (folder mh-show-folder-buffer)
-        (raw-message-data (buffer-string)))
+        (raw-message-data (buffer-string))
+        (mail-parse-charset
+          (cond ((string= current-language-environment "Japanese") 'iso-2022-jp)
+                (t nil))))
     (flet ((mm-handle-set-external-undisplayer
             (handle function)
             (mh-handle-set-external-undisplayer folder handle
	     function)))

$B?7>k!wC^GHBg3X>pJs$G$9!#$3$s$K$A$O!#(B

In article <YAS.08Apr28185258@kirk.is.tsukuba.ac.jp>
	yas@is.tsukuba.ac.jp (Yasushi Shinjo) writes:
>     http://ikumi.que.jp/cmp/mhe.html
>     (setq mh-scan-format-file nil)
>     (setq mh-adaptive-cmd-note-flag nil)
> 
> $B$3$l$G(B JIS $B$N=PNO$N(B scan $B$r;H$&$h$&$K$O$J$C$?$N$G$9$,!"(B
> coding-system $B$NLdBj$G!"2hLL$K(B ^[$B $B$H$+(B ^[(B $B$H$+!"%(%9%1!<(B
> $B%W!&%7!<%1%s%9$,=P$F$-$F$7$^$$$^$7$?!#(BMH-e $B$N(B scan $B$G;H$&(B 
> coding-system $B$r@_Dj$9$l$P$h$$$h$&$K;W$&$N$G$9$,!"6qBNE*$K$I(B
> $B$9$7$?$i$$$$$G$7$g$&$+!#(B

$B$3$l$G$9$,!"(BWeb $B%Z!<%8$NCx<T$N0f5b$5$s$+$i$b$$$m$$$m$H65$($F(B
$B$b$i$$$^$7$?!#(Bscan $B$K$D$$$F$O!"<!$N@_Dj$G(B process coding
system $B$r@_Dj$9$k$3$H$G2r7h$7$^$7$?!#(B

(modify-coding-system-alist 'process "scan" 'iso-2022-jp-unix)

$B%a!<%k$N(B Subject: $B$,(B JIS $B$N;~$K$O$&$^$/F0$-$^$9!#$=$l0J30$@(B
$B$HLdBj$+$b$7$l$^$;$s$,!"<B:]$K$O$[$H$s$IBg>fIW$J$N$G$7$g$&!#(B
$B%(%9%1!<%W!&%7!<%1%s%9$NItJ,$O!"J#?t:.$8$C$F$$$F$bJ?5$$J$O$:(B
$B$J$s$@$1$I!"(Bprocess coding system $B$H$$$&9M$(J}$@$H:.$8$C$F$$(B
$B$k$H$&$^$/$J$$$N$+!#(B

In article <080428220452.M0132841@smr00.gssm.otsuka.tsukuba.ac.jp>
	ohki@gssm.otsuka.tsukuba.ac.jp (Atsuo Ohki) writes:
> >>     (setq mh-scan-format-file nil)
> >>     (setq mh-adaptive-cmd-note-flag nil)
>  $B$3$l$O$d$C$F$J$$$$$s$G$9$,!D(B
>  $B$&$A$G$O!"0J2<$N$h$&$KD>$7$F$$$^$9!#(B
> 
> --- mh-mime.el-ORIG     Sun Jan 21 12:00:56 2007
> +++ mh-mime.el  Sun Jun 10 19:20:39 2007
> @@ -514,7 +514,10 @@
>  parsed and then displayed."
>    (let ((handles ())
>          (folder mh-show-folder-buffer)
> -        (raw-message-data (buffer-string)))
> +        (raw-message-data (buffer-string))
> +        (mail-parse-charset
> +          (cond ((string= current-language-environment "Japanese") 'iso-2022-jp)
> +                (t nil))))
>      (flet ((mm-handle-set-external-undisplayer
>              (handle function)
>              (mh-handle-set-external-undisplayer folder handle
> 	     function)))

$B$3$l$O!"(Bmh-mime-display $B$N=$@5$G$9$,!"K\J8$K8z$/$N$G$9$+$M!#(B
$B;d$O!"$3$A$i$bF~$l$^$7$?!#(B

------------------------------------------------------------
(defadvice mh-decode-message-body (around autodecode activate)
  "MIME-Version $B%X%C%@$J$7$G$b!"%a!<%kK\J8$r(B decode $B$5$;$k!#(B"
  (let ((mail-parse-charset 'undecided))
    ad-do-it))

(defadvice mh-decode-message-header (around autodecode activate)
  "MIME-Version $B%X%C%@$J$7$G$b!"%a!<%k%X%C%@$r(B decode $B$5$;$k!#(B"
  (let ((mail-parse-charset 'undecided))
    ad-do-it)
  ;; decode-coding-region $B$K$h$C$F(B text property $B$,<:$o$l$F$7$^$&$?$a!"(B
  ;; $B%"%I%l%9It$K@_Dj$5$l$?(B clickable map $B$d2<@~$,<:$o$l$F$7$^$&$N$G!D(B
  (mh-show-addr))
------------------------------------------------------------

$B<!$O%a!<%k$NH/?.B&$K?J$_$^$9!#(B

$B!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(B
$B!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(B