From: tmorioka Date: Wed, 26 Feb 1997 12:58:40 +0000 (+0000) Subject: (eword-decode-region): Unused local variable `charset', `encoding' and X-Git-Tag: Hokutetsu-Ishikawa-new~264 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cfef5c28977d754f344cbe1851be0b829c4a5f2e;p=elisp%2Fsemi.git (eword-decode-region): Unused local variable `charset', `encoding' and `text'. --- diff --git a/eword-decode.el b/eword-decode.el index 20827c4..4c10551 100644 --- a/eword-decode.el +++ b/eword-decode.el @@ -10,7 +10,7 @@ ;; Renamed: 1993/06/03 to tiny-mime.el ;; Renamed: 1995/10/03 from tiny-mime.el (split off encoder) ;; Renamed: 1997/02/22 from tm-ew-d.el -;; Version: $Revision: 0.11 $ +;; Version: $Revision: 0.12 $ ;; Keywords: encoded-word, MIME, multilingual, header, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -41,7 +41,7 @@ ;;; (defconst eword-decode-RCS-ID - "$Id: eword-decode.el,v 0.11 1997-02-26 07:58:29 tmorioka Exp $") + "$Id: eword-decode.el,v 0.12 1997-02-26 12:58:40 tmorioka Exp $") (defconst eword-decode-version (get-version-string eword-decode-RCS-ID)) @@ -167,14 +167,13 @@ such as a version of Net$cape)." (replace-match "\\1\\6") (goto-char (point-min)) ) - (let (charset encoding text) - (while (re-search-forward eword-encoded-word-regexp nil t) - (insert (eword-decode-encoded-word - (prog1 - (buffer-substring (match-beginning 0) (match-end 0)) - (delete-region (match-beginning 0) (match-end 0)) - ) must-unfold)) - )) + (while (re-search-forward eword-encoded-word-regexp nil t) + (insert (eword-decode-encoded-word + (prog1 + (buffer-substring (match-beginning 0) (match-end 0)) + (delete-region (match-beginning 0) (match-end 0)) + ) must-unfold)) + ) )))