[Mew-dist 06018] Re: Decoding quoted printable on Emacs-20.3

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <Shirai at example.com> 曰く
Subject: [Mew-dist 05992] Re: Decoding quoted printable on Emacs-20.3
Message-ID: <19980819201946R.shirai at example.com>
Date: Wed, 19 Aug 1998 20:18:48 +0900

白井> のパッチのなかの string-as-multibyte なのですが
白井> 例えば、Emacs20.2.1 + emu.el のような

白井> M-x describe-function^J string-as-multibyte^J

白井> string-as-multibyte is a Lisp macro.

白井> Return a multibyte string with the same individual bytes as STRING.
白井> If STRING is multibyte, the result is STRING itself.
白井> [Emacs 20.3 emulating macro]

白井> とでる環境では、エラーになってしまいます。

とりあえず、以下のパッチでは如何でしょうか?

Emacs 20.3 が まだ 25% しか持って来れていないので、
・Emacs19.28: string-as-multibyte なし
・Emacs 20.2.1: string-as-multibyte macro
・Emacs 20.2.97.2: string-as-multibyte  built-in function
 でしか確かめていませんが、動いているようです。

-------------- next part --------------
--- mew-bq.el.orig	Wed Aug 19 23:04:31 1998
+++ mew-bq.el	Thu Aug 20 11:33:10 1998
@@ -224,8 +224,12 @@
       (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 (and (fboundp 'string-as-multibyte)
+			       (listp (macroexpand '(string-as-multibyte ""))))
+			  (string-as-multibyte str) str))
 		    (substring qpstr end nil))))
     qpstr))
 
-------------- next part --------------
朝から Reason: Connection timed out の嵐 ;_;

白井秀行 (Hideyuki SHIRAI)