projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* eword-encode.el (make-ew-rword, ew-rword-text, ew-rword-charset)
[elisp/flim.git]
/
mel-q-ccl.el
diff --git
a/mel-q-ccl.el
b/mel-q-ccl.el
index
04e09b0
..
cccacd8
100644
(file)
--- a/
mel-q-ccl.el
+++ b/
mel-q-ccl.el
@@
-1,6
+1,6
@@
;;; mel-q-ccl.el --- Quoted-Printable encoder/decoder using CCL.
;;; mel-q-ccl.el --- Quoted-Printable encoder/decoder using CCL.
-;; Copyright (C) 1998 Tanaka Akira
+;; Copyright (C) 1998,1999 Tanaka Akira
;; Author: Tanaka Akira <akr@jaist.ac.jp>
;; Created: 1998/9/17
;; Author: Tanaka Akira <akr@jaist.ac.jp>
;; Created: 1998/9/17
@@
-20,8
+20,8
@@
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
;;; Code:
@@
-898,8
+898,13
@@
abcdefghijklmnopqrstuvwxyz\
(defun quoted-printable-ccl-insert-encoded-file (filename)
"Encode contents of the file named as FILENAME, and insert it."
(interactive "*fInsert encoded file: ")
(defun quoted-printable-ccl-insert-encoded-file (filename)
"Encode contents of the file named as FILENAME, and insert it."
(interactive "*fInsert encoded file: ")
- (insert-file-contents-as-coding-system
- 'mel-ccl-quoted-printable-lf-lf-rev filename))
+ (insert
+ (decode-coding-string
+ (with-temp-buffer
+ (set-buffer-multibyte nil)
+ (insert-file-contents-as-binary filename)
+ (buffer-string))
+ 'mel-ccl-quoted-printable-lf-lf-rev)))
(mel-define-method-function
(mime-encode-string string (nil "quoted-printable"))
(mel-define-method-function
(mime-encode-string string (nil "quoted-printable"))
@@
-927,8
+932,9
@@
encoding."
(defun quoted-printable-ccl-write-decoded-region (start end filename)
"Decode quoted-printable encoded current region and write out to FILENAME."
(interactive "*r\nFWrite decoded region to file: ")
(defun quoted-printable-ccl-write-decoded-region (start end filename)
"Decode quoted-printable encoded current region and write out to FILENAME."
(interactive "*r\nFWrite decoded region to file: ")
- (write-region-as-coding-system 'mel-ccl-quoted-printable-lf-lf-rev
- start end filename))
+ (let ((coding-system-for-write 'mel-ccl-quoted-printable-lf-lf-rev)
+ jka-compr-compression-info-list jam-zcat-filename-list)
+ (write-region start end filename)))
(mel-define-method-function
(mime-decode-string string (nil "quoted-printable"))
(mel-define-method-function
(mime-decode-string string (nil "quoted-printable"))