From: morioka <morioka>
Date: Fri, 15 May 1998 10:31:50 +0000 (+0000)
Subject: (quoted-printable-internal-encode-region): Use 'looking-at-as-unibyte
X-Git-Tag: flim-1_2_2~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b75f8333357ffda30fa423b187f98ca1aef13384;p=elisp%2Fflim.git

(quoted-printable-internal-encode-region): Use 'looking-at-as-unibyte
instead of local binding for enable-multibyte-characters.
---

diff --git a/mel-q.el b/mel-q.el
index 6ec4f0b..130865e 100644
--- 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)