- Rename emu-20.el to mcs-20.el.

[elisp/apel.git] / emu-nemacs.el

diff --git a/emu-nemacs.el b/emu-nemacs.el
index f9be5f6..087bbfa 100644 (file)
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -78,91 +78,6 @@ find-file-hooks, etc.
    (insert-file-contents-literally filename visit beg end replace)))
 
 
-;;; @ MIME charset
-;;;
-
-(defvar charsets-mime-charset-alist
-  '(((ascii) . us-ascii)))
-
-(defvar default-mime-charset 'iso-2022-jp)
-
-(defvar mime-charset-coding-system-alist
-  '((iso-2022-jp     . 2)
-    (shift_jis       . 1)
-    ))
-
-(defun mime-charset-to-coding-system (charset)
-  (if (stringp charset)
-      (setq charset (intern (downcase charset)))
-    )
-  (cdr (assq charset mime-charset-coding-system-alist)))
-
-(defun detect-mime-charset-region (start end)
-  "Return MIME charset for region between START and END.
-\[emu-nemacs.el]"
-  (if (save-excursion
-       (save-restriction
-         (narrow-to-region start end)
-         (goto-char start)
-         (re-search-forward "[\200-\377]" nil t)))
-      default-mime-charset
-    'us-ascii))
-
-(defun encode-mime-charset-region (start end charset)
-  "Encode the text between START and END as MIME CHARSET.
-\[emu-nemacs.el]"
-  (let ((cs (mime-charset-to-coding-system charset)))
-    (and (numberp cs)
-        (or (= cs 3)
-            (save-excursion
-              (save-restriction
-                (narrow-to-region start end)
-                (convert-region-kanji-code start end 3 cs))))
-        )))
-
-(defun decode-mime-charset-region (start end charset &optional lbt)
-  "Decode the text between START and END as MIME CHARSET.
-\[emu-nemacs.el]"
-  (let ((cs (mime-charset-to-coding-system charset))
-       (nl (cdr (assq lbt '((CRLF . "\r\n") (CR . "\r")
-                            (dos . "\r\n") (mac . "\r"))))))
-    (and (numberp cs)
-        (or (= cs 3)
-            (save-excursion
-              (save-restriction
-                (narrow-to-region start end)
-                (convert-region-kanji-code start end cs 3)
-                (if nl
-                    (progn
-                      (goto-char (point-min))
-                      (while (search-forward nl nil t)
-                        (replace-match "\n")))
-                  )))
-            ))))
-
-(defun encode-mime-charset-string (string charset)
-  "Encode the STRING as MIME CHARSET. [emu-nemacs.el]"
-  (let ((cs (mime-charset-to-coding-system charset)))
-    (if cs
-       (convert-string-kanji-code string 3 cs)
-      string)))
-
-(defun decode-mime-charset-string (string charset &optional lbt)
-  "Decode the STRING as MIME CHARSET. [emu-nemacs.el]"
-  (with-temp-buffer
-    (insert string)
-    (decode-mime-charset-region (point-min)(point-max) charset lbt)
-    (buffer-string)))
-
-(defun write-region-as-mime-charset (charset start end filename)
-  "Like `write-region', q.v., but code-convert by MIME CHARSET.
-\[emu-nemacs.el]"
-  (let ((kanji-fileio-code
-        (or (mime-charset-to-coding-system charset)
-            *noconv*)))
-    (write-region start end filename)))
-
-
 ;;; @ end
 ;;;