Re: WL on emacs 23

--Multipart_Thu_Apr__3_15:48:57_2008-1
Content-Type: text/plain; charset=ISO-2022-JP-2

$BF|K\8lHG(B

>>>>> In [Wanderlust English : No.02349] Katsumi Yamaoka wrote:

> $B$3$s$K$A$O;{@>$5$s!#(B

> $B$*5W$7$V$j$G$9!#$$$+$,$G$9$+(B?  $B$\$/$O$^$@(B Emacs $B$GM7$s$G$$$^$9!#(B;-)
> $B$H$-$K!">/$J$/$J$$(B Wanderlust $B%f!<%6!<$,(B FLIM ($B$b$7$+$7$?$i(B APEL
> $B$H(B SEMI $B$b(B) $B$N?7HG$,%j%j!<%9$5$l$?$3$H$rCN$i$J$$$i$7$$$3$H$,O*8+(B
> $B$7$^$7$?!#(BWanderlust $B$r(B Emacs 23 $B$GAv$i$;$k$K$O:G?7$N$b$N$,I,MW(B
> $B$J$s$G$9$,!#860x$N0lC<$O(B Wanderlust $B$N%[!<%`%Z!<%8$,:G?7$N>pJs$r(B
> $BI=<($7$F$$$J$$$3$H$K$"$j$^$9!#99?7$7$FH?1~$7$F$$$?$@$1$^$;$s$+(B?

$BG0$N$?$a!"%a%$%s%F%$%J!<$NJ}(B($B!9(B)$B$K$O(B APEL$B!"(BFLIM $B$*$h$S(B SEMI $B$N%j(B
$B%j!<%9%"%J%&%s%9$r(B wl-en $B%a!<%j%s%0%j%9%H$K$bAw$C$F$/$@$5$k$3$H(B
$B$r$*4j$$$7$^$9!#(B

$B5lHG$N(B FLIM $B$N(B base64 $B%G%3!<%I$NLdBj$K2C$($F!":G?7$N(B FLIM $B$K$5$((B
quoted-printable $B$N%G%3!<%I$H%(%s%3!<%I$K4X$9$k>/$J$/$H$bFs$D$N(B
$BLdBj$,$"$j$^$9!#$R$H$D$O0KF#OBGn$5$s$,%Q%C%A$H$H$b$K%j%]!<%H$7$^(B
$B$7$?(B:

http://news.gmane.org/group/gmane.emacs.mime.japanese/thread=669/force_load=t
(quoted-printable $B$G%(%s%3!<%I$5$l$?E:IU$r%U%!%$%k$K%;!<%V$9$k$H(B
$B$-$K9TKv$N(B `=' $B$,;D$k!#(B)

$B$b$&$R$H$D$O(B Dmitri Minaev $B$5$s$H$\$/$,%j%]!<%H$7$^$7$?(B:

http://news.gmane.org/group/gmane.mail.wanderlust.general.japanese/thread=5844/force_load=t

$BN>J}$H$b$H$j$o$1%i%F%s!&%F%-%9%H$r=q$/?M$?$A$K$H$C$F?<9o$G$9(B ($B%i(B
$B%F%s!&%F%-%9%H$O%G%U%)%k%H$G$O(B quoted-printable $B$G%(%s%3!<%I$5$l(B
$B$^$9(B)$B!#8D?ME*$K$O<!$N5-;v$KE:IU$5$l$F$$$k%Q%C%A(B

http://article.gmane.org/gmane.emacs.mime.japanese/669

$B$=$7$F$5$i$K$3$N%a%C%;!<%8$N%Q%C%A$rE,MQ$9$k$3$H$r$*4+$a$7$^$9!#(B

Emacs 23 $B$G$N(B quoted-printable $B$N%(%s%3!<%I$KCeL\$7$^$9$,!"%I%i(B
$B%U%H%P%C%U%!(B ($B%^%k%A%P%$%H$K$J$C$F$$$^$9(B) $B$K$"$k(B Latin-1 $BJ8;z$r(B
$B4^$s$G$$$k%F%-%9%H$,!"0J2<$N$h$&$K%(%s%3!<%I$5$l$^$;$s(B:

(set-language-environment 'German)
(setq default-mime-charset-for-write 'iso-8859-1)
(with-temp-buffer
  (set-buffer-multibyte t)
  (insert "To: whom\n" mail-header-separator "\nGr$(D+d)N(B Gott\n")
  (let (mime-edit-insert-user-agent-field)
    (mime-edit-translate-buffer))
  (buffer-string))
 => "To: whom
     MIME-Version: 1.0
     Content-Type: text/plain; charset=ISO-8859-1
     Content-Transfer-Encoding: quoted-printable
     --text follows this line--
     Gr\374\337 Gott
     "
$BF0:n$7$J$$:,K\E*$J860x$O!"0J2<$N%U%)!<%`$K(B Emacs 22 $B0JA0$N$b$N$O(B
("\374" . 252) $B$rJV$9$N$KBP$7$F(B Emacs 23 $B$,(B ("\374" . 4194300)
$B$rJV$9$3$H$H!"(Bquoted-printable $B$N%(%s%3!<%@$,8e<T$N$h$&$J$b$N$G(B
$B$OF/$+$J$$$3$H$G$9!#(B

(with-temp-buffer
  (set-buffer-multibyte t)
  (insert "$(D+d(B")
  (encode-coding-region (point-min) (point-max) 'iso-8859-1)
  (cons (buffer-string) (char-after (point-min))))

$B%P%C%U%!$NFbMF$N%^%k%A%P%$%H$+%f%K%P%$%H$+$rJQ99$9$k$I$s$JA`:n$b(B
$B$"$^$j$h$m$7$/$J$$$H;W$$$^$9$,!"$=$l$O5v$5$l$F$$$k$h$&$G$9!#$=$3(B
$B$G!"(Bmel-q-ccl.el $B$N(B quoted-printable $B%(%s%3!<%@$r(B base64 $BAH$_9~(B
$B$_4X?t$N$N$h$&$KF/$+$;$k$3$H$rDs0F$7$^$9!#(B

(base64-encode-string (string 4194300))
 => "/A=="

(base64-encode-string (string 252))
 => "/A=="

$B%Q%C%A$G$9(B:


--Multipart_Thu_Apr__3_15:48:57_2008-1
Content-Type: text/plain; charset=US-ASCII

--- mel-q-ccl.el~	2006-06-12 15:10:02 +0000
+++ mel-q-ccl.el	2008-04-03 06:33:51 +0000
@@ -893,7 +893,13 @@
   (defun quoted-printable-ccl-encode-region (start end)
     "Encode the region from START to END with quoted-printable encoding."
     (interactive "*r")
-    (decode-coding-region start end 'mel-ccl-quoted-printable-lf-lf-rev))
+    (save-excursion
+      (goto-char start)
+      (insert (prog1
+		  (decode-coding-string
+		   (string-as-unibyte (buffer-substring start end))
+		   'mel-ccl-quoted-printable-lf-lf-rev)
+		(delete-region start end)))))
 
   (defun quoted-printable-ccl-insert-encoded-file (filename)
     "Encode contents of the file named as FILENAME, and insert it."

--Multipart_Thu_Apr__3_15:48:57_2008-1
Content-Type: text/plain; charset=ISO-2022-JP


(http://article.gmane.org/gmane.emacs.mime.japanese/672
 $B$GEj9F$7$?;CDjBP:v$N(B defadvice $B$OGK4~$7$F$/$@$5$$!#(B)

$B$h$m$7$/$*4j$$$7$^$9!#(B

--Multipart_Thu_Apr__3_15:48:57_2008-1--