From 6b1e47875a18ac2c8345279d308c039c3d3f088b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 18 Feb 2010 05:02:26 +0000 Subject: [PATCH] ;; 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. --- ChangeLog | 7 +++++++ mel-q-ccl.el | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index d3716bf..827ad73 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2010-02-18 Kazuhiro Ito + + * 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 * 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. -- 1.7.10.4