;; 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 (file)
--- 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
 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 (file)
--- 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
     (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")
     (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
       (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)
                              (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))
        ((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.
    (t
     (defun q-encoding-ccl-encode-string (string &optional mode)
       "Encode STRING to Q-encoding of encoded-word, and return the result.