[Mew-dist 05973] Decoding quoted printable on Emacs-20.3
SAKAI Kiyotaka
ksakai at example.com
1998年 8月 18日 (火) 16:37:04 JST
Emacs 20.3 $B$G$O(B
(concat "\305" "$B$"(B")
$B$,(B "\305$B$"(B" $B$G$O$J$/$F(B "NE$B$"(B" $B$rJV$9$3$H$, at example.com<0$J;EMM$K$J$j!"(B"\305$B$"(B" $B$r(B
$BJV$5$;$k$?$a$K$O(B
(concat (string-as-multibyte "\305") "$B$"(B")
$B$H$9$kI,MW$,$"$j$^$9!#(B
$B$=$N$?$a!"(B
From: =?iso-8859-1?Q?Mats_=C5kerberg?= <mats at example.com>
$B$N$h$&$J%a!<%k$N(B decode $B$,$*$+$7$/$J$j$^$9$,!"$3$l$KBP1~$9$k$?$a$N%Q%C(B
$B%A$G$9!#(B
# Emacs 20.3 $B$OL at example.com|(B 8/19 $B$K%j%j!<%9M=Dj$i$7$$$G$9!#(B
--
$B<r0f(B $B at example.com(B (E-mail: ksakai at example.com)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-bq.el,v
retrieving revision 1.1
diff -u -r1.1 mew-bq.el
--- mew-bq.el 1998/08/18 06:59:07 1.1
+++ mew-bq.el 1998/08/18 07:15:34
@@ -224,8 +224,11 @@
(setq end (match-end 0))
(setq qpstr
(concat (substring qpstr 0 start)
- (char-to-string (mew-hexstring-to-int
- (substring qpstr (1+ start) end)))
+ (let ((str (char-to-string
+ (mew-hexstring-to-int
+ (substring qpstr (1+ start) end)))))
+ (if (fboundp 'string-as-multibyte)
+ (string-as-multibyte str) str))
(substring qpstr end nil))))
qpstr))
Mew-dist メーリングリストの案内