Merge semi21-D20010129.
[elisp/lemi.git] / mime / mel-u.el
1 ;;; mel-u.el --- uuencode encoder/decoder.
2
3 ;; Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.
4
5 ;; Author: MORIOKA Tomohiko <tomo@m17n.org>
6 ;; Created: 1995/10/25
7 ;; Keywords: uuencode
8
9 ;; This file is part of FLIM (Faithful Library about Internet Message).
10
11 ;; This program is free software; you can redistribute it and/or
12 ;; modify it under the terms of the GNU General Public License as
13 ;; published by the Free Software Foundation; either version 2, or (at
14 ;; your option) any later version.
15
16 ;; This program is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with this program; see the file COPYING.  If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
25
26 ;;; Code:
27
28 (require 'mime-def)
29 (require 'path-util)
30
31
32 (mel-define-backend "x-uue")
33
34
35 ;;; @ variables
36 ;;;
37
38 (defvar uuencode-external-encoder '("uuencode" "-")
39   "*list of uuencode encoder program name and its arguments.")
40
41 (defvar uuencode-external-decoder '("sh" "-c" "uudecode")
42   "*list of uuencode decoder program name and its arguments.")
43
44
45 ;;; @ uuencode encoder/decoder for region
46 ;;;
47
48 (defun uuencode-external-encode-region (start end)
49   "Encode current region by unofficial uuencode format.
50 This function uses external uuencode encoder which is specified by
51 variable `uuencode-external-encoder'."
52   (interactive "*r")
53   (save-excursion
54     (let ((coding-system-for-read  'binary)
55           (coding-system-for-write 'binary))
56       (apply (function call-process-region)
57              start end (car uuencode-external-encoder)
58              t t nil
59              (cdr uuencode-external-encoder)))
60     ;; for OS/2
61     ;;   regularize line break code
62     (goto-char (point-min))
63     (while (re-search-forward "\r$" nil t)
64       (replace-match ""))))
65
66 (defun uuencode-external-decode-region (start end)
67   "Decode current region by unofficial uuencode format.
68 This function uses external uuencode decoder which is specified by
69 variable `uuencode-external-decoder'."
70   (interactive "*r")
71   (save-excursion
72     (let ((filename (save-excursion
73                       (save-restriction
74                         (narrow-to-region start end)
75                         (goto-char start)
76                         (if (re-search-forward "^begin [0-9]+ " nil t)
77                             (if (looking-at ".+$")
78                                 (buffer-substring (match-beginning 0)
79                                                   (match-end 0)))))))
80           (default-directory temporary-file-directory))
81       (if filename
82           (let ((coding-system-for-read  'binary)
83                 (coding-system-for-write 'binary))
84             (apply (function call-process-region)
85                    start end (car uuencode-external-decoder)
86                    t nil nil
87                    (cdr uuencode-external-decoder))
88             (insert-file-contents filename)
89             ;; The previous line causes the buffer to be made read-only, I
90             ;; do not pretend to understand the control flow leading to this
91             ;; but suspect it has something to do with image-mode. -slb
92             ;;  Use `inhibit-read-only' to avoid to force
93             ;;  buffer-read-only nil. - tomo.
94             (let ((inhibit-read-only t))
95               (delete-file filename)))))))
96
97 (mel-define-method-function (mime-encode-region start end (nil "x-uue"))
98                             'uuencode-external-encode-region)
99 (mel-define-method-function (mime-decode-region start end (nil "x-uue"))
100                             'uuencode-external-decode-region)
101
102
103 ;;; @ encoder/decoder for string
104 ;;;
105
106 (mel-define-method mime-encode-string (string (nil "x-uue"))
107   (with-temp-buffer
108     (insert string)
109     (uuencode-external-encode-region (point-min)(point-max))
110     (buffer-string)))
111
112 (mel-define-method mime-decode-string (string (nil "x-uue"))
113   (with-temp-buffer
114     (insert string)
115     (uuencode-external-decode-region (point-min)(point-max))
116     (buffer-string)))
117
118
119 ;;; @ uuencode encoder/decoder for file
120 ;;;
121
122 (mel-define-method mime-insert-encoded-file (filename (nil "x-uue"))
123   "Insert file encoded by unofficial uuencode format.
124 This function uses external uuencode encoder which is specified by
125 variable `uuencode-external-encoder'."
126   (interactive "*fInsert encoded file: ")
127   (call-process (car uuencode-external-encoder)
128                 filename t nil
129                 (file-name-nondirectory filename)))
130
131 (mel-define-method mime-write-decoded-region (start end filename
132                                                     (nil "x-uue"))
133   "Decode and write current region encoded by uuencode into FILENAME.
134 START and END are buffer positions."
135   (interactive "*r\nFWrite decoded region to file: ")
136   (save-excursion
137     (let ((file (save-excursion
138                   (save-restriction
139                     (narrow-to-region start end)
140                     (goto-char start)
141                     (if (re-search-forward "^begin [0-9]+ " nil t)
142                         (if (looking-at ".+$")
143                             (buffer-substring (match-beginning 0)
144                                               (match-end 0)))))))
145           (default-directory temporary-file-directory))
146       (if file
147           (let ((coding-system-for-read  'binary)
148                 (coding-system-for-write 'binary))
149             (apply (function call-process-region)
150                    start end (car uuencode-external-decoder)
151                    nil nil nil
152                    (cdr uuencode-external-decoder))
153             (rename-file file filename 'overwrites))))))
154
155
156 ;;; @ end
157 ;;;
158
159 (provide 'mel-u)
160
161 (mel-define-backend "x-uuencode" ("x-uue"))
162
163 ;;; mel-u.el ends here.