From: yamaoka <yamaoka>
Date: Thu, 18 Feb 2010 05:02:26 +0000 (+0000)
Subject: ;; From Ito-san:
X-Git-Tag: flim-1_14-wl-root~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6b1e47875a18ac2c8345279d308c039c3d3f088b;p=elisp%2Fflim.git

;; From Ito-san:
(quoted-printable-ccl-encode-string, quoted-printable-ccl-insert-encoded-file)
(q-encoding-ccl-encode-string): Make new vector instead of use of the one that
 is hard-coded in the program.
---

diff --git a/ChangeLog b/ChangeLog
index d3716bf..827ad73 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2010-02-18  Kazuhiro Ito  <kzhr@d1.dion.ne.jp>
+
+	* mel-q-ccl.el (quoted-printable-ccl-encode-string)
+	(quoted-printable-ccl-insert-encoded-file)
+	(q-encoding-ccl-encode-string): Make new vector instead of use of
+	the one that is hard-coded in the program.
+
 2010-02-14  Tetsurou Okazaki  <okazaki@be.to>
 
 	* smtp.el (smtp-primitive-mailfrom): Fixed two spaces may be used
diff --git a/mel-q-ccl.el b/mel-q-ccl.el
index 4627a37..e44eea7 100644
--- a/mel-q-ccl.el
+++ b/mel-q-ccl.el
@@ -894,7 +894,7 @@ abcdefghijklmnopqrstuvwxyz\
     (defun quoted-printable-ccl-encode-string (string)
       "Encode STRING with quoted-printable encoding."
       (ccl-execute-on-string 'mel-ccl-encode-quoted-printable-lf-lf
-			     [0 0 0 0 0 0 0 0 0] string nil t))
+			     (make-vector 9 0) string nil t))
     (defun quoted-printable-ccl-encode-region (start end)
       "Encode the region from START to END with quoted-printable encoding."
       (interactive "*r")
@@ -909,7 +909,7 @@ abcdefghijklmnopqrstuvwxyz\
       (interactive "*fInsert encoded file: ")
       (insert
        (ccl-execute-on-string 'mel-ccl-encode-quoted-printable-lf-lf
-			      [0 0 0 0 0 0 0 0 0]
+			      (make-vector 9 0)
 			      (with-temp-buffer
 				(set-buffer-multibyte nil)
 				(insert-file-contents-as-binary filename)
@@ -998,7 +998,7 @@ MODE allows `text', `comment', `phrase' or nil.  Default value is
 	((eq mode 'text) 'mel-ccl-encode-uq)
 	((eq mode 'comment) 'mel-ccl-encode-cq)
 	(t 'mel-ccl-encode-pq))
-       [0 0 0 0 0 0 0 0 0] string nil t)))
+       (make-vector 9 0) string nil t)))
    (t
     (defun q-encoding-ccl-encode-string (string &optional mode)
       "Encode STRING to Q-encoding of encoded-word, and return the result.