From: Dave Love <fx@gnu.org>
Date: Thu, 5 Sep 2002 17:52:26 +0000 (+0000)
Subject: (mm-iso-8859-x-to-15-region): Deleted.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~359
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f9323caf353eda6270fd6dd9576b11ac5c5c1c0;p=emacs.git

(mm-iso-8859-x-to-15-region): Deleted.
---

diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index c8469ef7dae..9c0e34f2d86 100644
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -432,26 +432,6 @@ If the charset is `composition', return the actual one."
       enable-multibyte-characters
     (featurep 'mule)))
 
-(defun mm-iso-8859-x-to-15-region (&optional b e)
-  (if (fboundp 'char-charset)
-      (let (charset item c inconvertible)
-	(save-restriction
-	  (if e (narrow-to-region b e))
-	  (goto-char (point-min))
-	  (skip-chars-forward "\0-\177")
-	  (while (not (eobp))
-	    (cond 
-	     ((not (setq item (assq (char-charset (setq c (char-after))) 
-				    mm-iso-8859-x-to-15-table)))
-	      (forward-char))
-	     ((memq c (cdr (cdr item)))
-	      (setq inconvertible t)
-	      (forward-char))
-	     (t
-	      (insert (prog1 (+ c (car (cdr item))) (delete-char 1))))
-	    (skip-chars-forward "\0-\177"))))
-	(not inconvertible))))
-
 (defun mm-sort-coding-systems-predicate (a b)
   (> (length (memq a mm-coding-system-priorities))
      (length (memq b mm-coding-system-priorities))))