From: shuhei Date: Fri, 27 Apr 2001 23:54:18 +0000 (+0000) Subject: (mime-decode-parameter-value): Don't use `int-char'. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=04cd77473679fc56bb8512e31c64edf06e925d2d;p=elisp%2Fflim.git (mime-decode-parameter-value): Don't use `int-char'. --- diff --git a/mime-parse.el b/mime-parse.el index b2dc3ab..fc58e67 100644 --- a/mime-parse.el +++ b/mime-parse.el @@ -97,10 +97,9 @@ be the result." (insert text) (goto-char (point-min)) (while (re-search-forward "%[0-9A-Fa-f][0-9A-Fa-f]" nil t) - (insert (prog1 (int-char - (string-to-int - (buffer-substring (point)(- (point) 2)) - 16)) + (insert (prog1 (string-to-int + (buffer-substring (point)(- (point) 2)) + 16) (delete-region (point)(- (point) 3))))) (setq text (buffer-string)) (when charset