From 5f9323caf353eda6270fd6dd9576b11ac5c5c1c0 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 5 Sep 2002 17:52:26 +0000 Subject: [PATCH] (mm-iso-8859-x-to-15-region): Deleted. --- lisp/gnus/mm-util.el | 20 -------------------- 1 file changed, 20 deletions(-) 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)))) -- 2.39.5