Sync up with chao-1_2_0_9.

[elisp/flim.git] / mel-q.el

diff --git a/mel-q.el b/mel-q.el
index 9a8f954..130865e 100644 (file)
--- a/mel-q.el
+++ b/mel-q.el
@@ -44,19 +44,18 @@
     (save-restriction
       (narrow-to-region start end)
       (goto-char start)
-      (let ((col 0)
-           enable-multibyte-characters)
+      (let ((col 0))
        (while (< (point)(point-max))
          (cond ((>= col 75)
                 (insert "=\n")
                 (setq col 0)
                 )
-               ((looking-at "^From ")
+               ((looking-at-as-unibyte "^From ")
                 (replace-match "=46rom ")
                 (backward-char 1)
                 (setq col (+ col 6))
                 )
-               ((looking-at "[ \t]\n")
+               ((looking-at-as-unibyte "[ \t]\n")
                 (forward-char 1)
                 (insert "=\n")
                 (forward-char 1)
@@ -202,7 +201,7 @@ It calls external quoted-printable encoder specified by
          (setq e (match-end 0))
          (setq str (buffer-substring b e))
          (delete-region b e)
-         (insert (quoted-printable-decode-string str))
+         (insert (string-as-multibyte (quoted-printable-decode-string str)))
          ))
       )))