Mercurial > hg > xemacs-beta

comparison lisp/mel/mel.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; modified by Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 6 ;; modified by Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
7 ;; Created: 1995/6/25 7 ;; Created: 1995/6/25
8 ;; Version: $Id: mel.el,v 1.4 1997/06/06 00:57:15 steve Exp $ 8 ;; Version: $Id: mel.el,v 1.5 1997/07/26 22:09:47 steve Exp $
9 ;; Keywords: MIME, Base64, Quoted-Printable, uuencode, gzip64 9 ;; Keywords: MIME, Base64, Quoted-Printable, uuencode, gzip64
10 10
11 ;; This file is part of MEL (MIME Encoding Library). 11 ;; This file is part of MEL (MIME Encoding Library).
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
83 Each element looks like (STRING . FUNCTION). 83 Each element looks like (STRING . FUNCTION).
84 STRING is content-transfer-encoding. 84 STRING is content-transfer-encoding.
85 FUNCTION is region decoder.") 85 FUNCTION is region decoder.")
86 86
87 87
88 ;;;###autoload
88 (defun mime-encode-region (start end encoding) 89 (defun mime-encode-region (start end encoding)
89 "Encode region START to END of current buffer using ENCODING." 90 "Encode region START to END of current buffer using ENCODING."
90 (interactive 91 (interactive
91 (list (region-beginning) (region-end) 92 (list (region-beginning) (region-end)
92 (completing-read "encoding: " 93 (completing-read "encoding: "
96 (let ((f (cdr (assoc encoding mime-encoding-method-alist)))) 97 (let ((f (cdr (assoc encoding mime-encoding-method-alist))))
97 (if f 98 (if f
98 (funcall f start end) 99 (funcall f start end)
99 ))) 100 )))
100 101
102 ;;;###autoload
101 (defun mime-decode-region (start end encoding) 103 (defun mime-decode-region (start end encoding)
102 "Decode region START to END of current buffer using ENCODING." 104 "Decode region START to END of current buffer using ENCODING."
103 (interactive 105 (interactive
104 (list (region-beginning) (region-end) 106 (list (region-beginning) (region-end)
105 (completing-read "encoding: " 107 (completing-read "encoding: "
136 "Alist of encoding vs. corresponding method to insert encoded file. 138 "Alist of encoding vs. corresponding method to insert encoded file.
137 Each element looks like (STRING . FUNCTION). 139 Each element looks like (STRING . FUNCTION).
138 STRING is content-transfer-encoding. 140 STRING is content-transfer-encoding.
139 FUNCTION is function to insert encoded file.") 141 FUNCTION is function to insert encoded file.")
140 142
143 ;;;###autoload
141 (defun mime-insert-encoded-file (filename encoding) 144 (defun mime-insert-encoded-file (filename encoding)
142 "Insert file FILENAME encoded by ENCODING format." 145 "Insert file FILENAME encoded by ENCODING format."
143 (interactive 146 (interactive
144 (list (read-file-name "Insert encoded file: ") 147 (list (read-file-name "Insert encoded file: ")
145 (completing-read "encoding: " 148 (completing-read "encoding: "