tm 7.29.

[elisp/tm.git] / tm-edit.el

diff --git a/tm-edit.el b/tm-edit.el
index 142aa45..93743a5 100644 (file)
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -107,7 +107,7 @@
 ;; LCD Archive Entry:
 ;; mime|Masanobu UMEDA|umerin@mse.kyutech.ac.jp|
 ;; Simple MIME Composer|
-;; $Date: 1995/11/25 02:14:25 $|$Revision: 7.28 $|~/misc/mime.el.Z|
+;; $Date: 1995/12/05 07:58:52 $|$Revision: 7.29 $|~/misc/mime.el.Z|
 
 ;;; Code:
 
@@ -125,7 +125,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.28 1995/11/25 02:14:25 morioka Exp $")
+  "$Id: tm-edit.el,v 7.29 1995/12/05 07:58:52 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1714,6 +1714,8 @@ in Mule."
           '("ISO-8859-9" . "quoted-printable"))
          ((memq lc-jp lclist)
           '("ISO-2022-JP" . nil))
+         ((memq lc-kr lclist)
+          '("ISO-2022-KR" . nil))
          ;; Unknown charset.
          ((boundp '*iso-2022-int-1*)
           '("ISO-2022-INT-1" . nil))
@@ -1742,6 +1744,7 @@ text."
                        ("ISO-8859-9" . *iso-8859-9*)
                        ("ISO-2022-JP" . *junet*)
                        ("ISO-2022-JP-2" . *iso-2022-ss2-7*)
+                       ("ISO-2022-KR" . *korean-mail*)
                        ("ISO-2022-INT-1" . *iso-2022-int-1*)
                        )))))
     ;; In bilingual environment it may be unnecessary to convert the
@@ -1833,6 +1836,8 @@ a recording host instead of local host."
       (let ((header-start (point))
            (case-fold-search t)
            beg end)
+       ;; for Emacs 18
+       ;; (if (re-search-forward "^$" (marker-position (mark-marker)))
        (if (re-search-forward "^$" (mark t))
            (narrow-to-region header-start (match-beginning 0))
          )