# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1031248346 0
# Node ID 46a348bc9e9611622eb796dfde26a40e1226ad35
# Parent  f881acb1a123b5317acb5d44b0ede81c47f33681
(mm-iso-8859-x-to-15-region): Deleted.

diff -r f881acb1a123 -r 46a348bc9e96 lisp/gnus/mm-util.el
--- a/lisp/gnus/mm-util.el	Thu Sep 05 17:50:38 2002 +0000
+++ b/lisp/gnus/mm-util.el	Thu Sep 05 17:52:26 2002 +0000
@@ -432,26 +432,6 @@
       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))))