X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel.el;h=2ed43a402216a711414a33bbf33b905d634809f4;hb=1107de851b970443c16b68389504902d5535ef07;hp=062a417cfdc1b422ec8a81829d6a0c3a5f982a8f;hpb=025e3fdc81e0e8cadcfdeb733595d3f546c00c8a;p=elisp%2Fflim.git diff --git a/mel.el b/mel.el index 062a417..2ed43a4 100644 --- a/mel.el +++ b/mel.el @@ -1,106 +1,280 @@ -;;; ;;; mel.el : a MIME encoding/decoding library -;;; -;;; Copyright (C) 1995 Free Software Foundation, Inc. -;;; Copyright (C) 1995,1996 MORIOKA Tomohiko -;;; -;;; Author: MORIOKA Tomohiko -;;; modified by Shuhei KOBAYASHI -;;; Maintainer: MORIOKA Tomohiko -;;; Created: 1995/6/25 -;;; Version: -;;; $Id: mel.el,v 3.5 1996/03/13 16:05:41 morioka Exp $ -;;; Keywords: MIME, Base64, Quoted-Printable, uuencode, gzip64 -;;; -;;; This file is part of MEL (MIME Encoding Library). -;;; -;;; This program is free software; you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation; either version 2, or -;;; (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with This program. If not, write to the Free Software -;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; + +;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. + +;; Author: MORIOKA Tomohiko +;; modified by Shuhei KOBAYASHI +;; Created: 1995/6/25 +;; Keywords: MIME, Base64, Quoted-Printable, uuencode, gzip64 + +;; This file is part of MEL (MIME Encoding Library). + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + ;;; Code: -(autoload 'base64-encode-region "mel-b" nil t) -(autoload 'base64-decode-region "mel-b" nil t) -(autoload 'base64-encode-string "mel-b") -(autoload 'base64-decode-string "mel-b") -(autoload 'base64-encoded-length "mel-b") +(require 'emu) + + +;;; @ variable +;;; + +(defvar base64-dl-module + (and (fboundp 'dynamic-link) + (let ((path (expand-file-name "base64.so" exec-directory))) + (and (file-exists-p path) + path)))) -(autoload 'quoted-printable-encode-region "mel-q" nil t) -(autoload 'quoted-printable-decode-region "mel-q" nil t) -(autoload 'q-encoding-encode-string-for-text "mel-q") -(autoload 'q-encoding-encode-string-for-comment "mel-q") -(autoload 'q-encoding-encode-string-for-phrase "mel-q") -(autoload 'q-encoding-encode-string "mel-q") -(autoload 'q-encoding-decode-string "mel-q") +;;; @ autoload +;;; + +(cond (base64-dl-module + (autoload 'base64-encode-string "mel-dl" + "Encode STRING to base64, and return the result.") + (autoload 'base64-decode-string "mel-dl" + "Decode STRING which is encoded in base64, and return the result.") + (autoload 'base64-encode-region "mel-dl" + "Encode current region by base64." t) + (autoload 'base64-decode-region "mel-dl" + "Decode current region by base64." t) + (autoload 'base64-insert-encoded-file "mel-dl" + "Encode contents of file to base64, and insert the result." t) + (autoload 'base64-write-decoded-region "mel-dl" + "Decode and write current region encoded by base64 into FILENAME." t) + ;; for encoded-word + (autoload 'base64-encoded-length "mel-dl") + ) + (t + (autoload 'base64-encode-string "mel-b" + "Encode STRING to base64, and return the result.") + (autoload 'base64-decode-string "mel-b" + "Decode STRING which is encoded in base64, and return the result.") + (autoload 'base64-encode-region "mel-b" + "Encode current region by base64." t) + (autoload 'base64-decode-region "mel-b" + "Decode current region by base64." t) + (autoload 'base64-insert-encoded-file "mel-b" + "Encode contents of file to base64, and insert the result." t) + (autoload 'base64-write-decoded-region "mel-b" + "Decode and write current region encoded by base64 into FILENAME." t) + ;; for encoded-word + (autoload 'base64-encoded-length "mel-b") + )) + +(autoload 'quoted-printable-encode-string "mel-q" + "Encode STRING to quoted-printable, and return the result.") +(autoload 'quoted-printable-decode-string "mel-q" + "Decode STRING which is encoded in quoted-printable, and return the result.") +(autoload 'quoted-printable-encode-region "mel-q" + "Encode current region by Quoted-Printable." t) +(autoload 'quoted-printable-decode-region "mel-q" + "Decode current region by Quoted-Printable." t) +(autoload 'quoted-printable-insert-encoded-file "mel-q" + "Encode contents of file to quoted-printable, and insert the result." t) +(autoload 'quoted-printable-write-decoded-region "mel-q" + "Decode and write current region encoded by quoted-printable into FILENAME." + t) +;; for encoded-word +(autoload 'q-encoding-encode-string "mel-q" + "Encode STRING to Q-encoding of encoded-word, and return the result.") +(autoload 'q-encoding-decode-string "mel-q" + "Decode STRING which is encoded in Q-encoding and return the result.") (autoload 'q-encoding-encoded-length "mel-q") -(autoload 'uuencode-encode-region "mel-u" nil t) -(autoload 'uuencode-decode-region "mel-u" nil t) +(autoload 'uuencode-encode-region "mel-u" + "Encode current region by unofficial uuencode format." t) +(autoload 'uuencode-decode-region "mel-u" + "Decode current region by unofficial uuencode format." t) +(autoload 'uuencode-insert-encoded-file "mel-u" + "Insert file encoded by unofficial uuencode format." t) +(autoload 'uuencode-write-decoded-region "mel-u" + "Decode and write current region encoded by uuencode into FILENAME." t) -(autoload 'gzip64-encode-region "mel-g" nil t) -(autoload 'gzip64-decode-region "mel-g" nil t) +(autoload 'gzip64-encode-region "mel-g" + "Encode current region by unofficial x-gzip64 format." t) +(autoload 'gzip64-decode-region "mel-g" + "Decode current region by unofficial x-gzip64 format." t) +(autoload 'gzip64-insert-encoded-file "mel-g" + "Insert file encoded by unofficial gzip64 format." t) +(autoload 'gzip64-write-decoded-region "mel-g" + "Decode and write current region encoded by gzip64 into FILENAME." t) + + +;;; @ region +;;; +;;;###autoload (defvar mime-encoding-method-alist '(("base64" . base64-encode-region) ("quoted-printable" . quoted-printable-encode-region) - ("x-uue" . uuencode-encode-region) - ("x-gzip64" . gzip64-encode-region) + ;; Not standard, their use is DISCOURAGED. + ;; ("x-uue" . uuencode-encode-region) + ;; ("x-gzip64" . gzip64-encode-region) ("7bit") ("8bit") ("binary") - )) + ) + "Alist of encoding vs. corresponding method to encode region. +Each element looks like (STRING . FUNCTION) or (STRING . nil). +STRING is content-transfer-encoding. +FUNCTION is region encoder and nil means not to encode.") +;;;###autoload (defvar mime-decoding-method-alist '(("base64" . base64-decode-region) ("quoted-printable" . quoted-printable-decode-region) ("x-uue" . uuencode-decode-region) + ("x-uuencode" . uuencode-decode-region) ("x-gzip64" . gzip64-decode-region) - )) - + ) + "Alist of encoding vs. corresponding method to decode region. +Each element looks like (STRING . FUNCTION). +STRING is content-transfer-encoding. +FUNCTION is region decoder.") -;;; @ region -;;; - -(defun mime/encode-region (encoding beg end) - "Encode region BEG to END of current buffer using ENCODING. [mel.el]" +;;;###autoload +(defun mime-encode-region (start end encoding) + "Encode region START to END of current buffer using ENCODING. +ENCODING must be string. If ENCODING is found in +`mime-encoding-method-alist' as its key, this function encodes the +region by its value." (interactive - (list (completing-read "encoding: " + (list (region-beginning) (region-end) + (completing-read "encoding: " mime-encoding-method-alist - nil t "base64") - (region-beginning) (region-end)) + nil t "base64")) ) (let ((f (cdr (assoc encoding mime-encoding-method-alist)))) (if f - (funcall f beg end) + (funcall f start end) ))) -(defun mime/decode-region (encoding beg end) - "Decode region BEG to END of current buffer using ENCODING. [mel.el]" +;;;###autoload +(defun mime-decode-region (start end encoding) + "Decode region START to END of current buffer using ENCODING. +ENCODING must be string. If ENCODING is found in +`mime-decoding-method-alist' as its key, this function decodes the +region by its value." (interactive - (list (completing-read "encoding: " + (list (region-beginning) (region-end) + (completing-read "encoding: " mime-decoding-method-alist - nil t "base64") - (region-beginning) (region-end)) + nil t "base64")) ) (let ((f (cdr (assoc encoding mime-decoding-method-alist)))) (if f - (funcall f beg end) + (funcall f start end) ))) -(defalias 'mime-encode-region 'mime/encode-region) -(defalias 'mime-decode-region 'mime/decode-region) + +;;; @ string +;;; + +;;;###autoload +(defvar mime-string-decoding-method-alist + '(("base64" . base64-decode-string) + ("quoted-printable" . quoted-printable-decode-string) + ("7bit" . identity) + ("8bit" . identity) + ("binary" . identity) + ) + "Alist of encoding vs. corresponding method to decode string. +Each element looks like (STRING . FUNCTION). +STRING is content-transfer-encoding. +FUNCTION is string decoder.") + +;;;###autoload +(defun mime-decode-string (string encoding) + "Decode STRING using ENCODING. +ENCODING must be string. If ENCODING is found in +`mime-string-decoding-method-alist' as its key, this function decodes +the STRING by its value." + (let ((f (cdr (assoc encoding mime-string-decoding-method-alist)))) + (if f + (funcall f string) + (with-temp-buffer + (insert string) + (mime-decode-region (point-min)(point-max) encoding) + (buffer-string) + )))) + + +;;; @ file +;;; + +;;;###autoload +(defvar mime-file-encoding-method-alist + '(("base64" . base64-insert-encoded-file) + ("quoted-printable" . quoted-printable-insert-encoded-file) + ;; Not standard, their use is DISCOURAGED. + ;; ("x-uue" . uuencode-insert-encoded-file) + ;; ("x-gzip64" . gzip64-insert-encoded-file) + ("7bit" . insert-file-contents-as-binary) + ("8bit" . insert-file-contents-as-binary) + ("binary" . insert-file-contents-as-binary) + ) + "Alist of encoding vs. corresponding method to insert encoded file. +Each element looks like (STRING . FUNCTION). +STRING is content-transfer-encoding. +FUNCTION is function to insert encoded file.") + +;;;###autoload +(defvar mime-file-decoding-method-alist + '(("base64" . base64-write-decoded-region) + ("quoted-printable" . quoted-printable-write-decoded-region) + ("x-uue" . uuencode-write-decoded-region) + ("x-gzip64" . gzip64-write-decoded-region) + ("7bit" . write-region-as-binary) + ("8bit" . write-region-as-binary) + ("binary" . write-region-as-binary) + ) + "Alist of encoding vs. corresponding method to write decoded region to file. +Each element looks like (STRING . FUNCTION). +STRING is content-transfer-encoding. +FUNCTION is function to write decoded region to file.") + +;;;###autoload +(defun mime-insert-encoded-file (filename encoding) + "Insert file FILENAME encoded by ENCODING format." + (interactive + (list (read-file-name "Insert encoded file: ") + (completing-read "encoding: " + mime-encoding-method-alist + nil t "base64")) + ) + (let ((f (cdr (assoc encoding mime-file-encoding-method-alist)))) + (if f + (funcall f filename) + ))) + +;;;###autoload +(defun mime-write-decoded-region (start end filename encoding) + "Decode and write current region encoded by ENCODING into FILENAME. +START and END are buffer positions." + (interactive + (list (region-beginning) (region-end) + (read-file-name "Write decoded region to file: ") + (completing-read "encoding: " + mime-file-decoding-method-alist + nil t "base64"))) + (let ((f (cdr (assoc encoding mime-file-decoding-method-alist)))) + (if f + (funcall f start end filename) + ))) ;;; @ end