From 83dbd1a8eca87310a8b745e9132a51c22478d003 Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 11 Jan 1998 17:18:50 +0000 Subject: [PATCH] mel of MEL 3.3. --- mel-b.el | 34 +++++++++++++++++++++++++++++++++- mel-q.el | 30 +++++++++++++++++++++++++++++- mel-u.el | 51 +++++++++++++++++++++++++++++++++++++++++---------- mel.el | 29 ++++++++++++++++++++++++++--- 4 files changed, 129 insertions(+), 15 deletions(-) diff --git a/mel-b.el b/mel-b.el index e8fcaba..6db350e 100644 --- a/mel-b.el +++ b/mel-b.el @@ -1,6 +1,34 @@ ;;; -;;; $Id: mel-b.el,v 3.0 1995/11/02 04:14:51 morioka Exp $ +;;; mel-b.el: Base64 encoder/decoder for GNU Emacs ;;; +;;; Copyright (C) 1995 Free Software Foundation, Inc. +;;; Copyright (C) 1995,1996 MORIOKA Tomohiko +;;; +;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1995/6/24 +;;; Version: +;;; $Id: mel-b.el,v 3.2 1996/01/09 18:25:22 morioka Exp $ +;;; Keywords: MIME, Base64 +;;; +;;; 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. +;;; +;;; Code: + ;;; @ variables ;;; @@ -252,4 +280,8 @@ and return list of packs. [mel-b; tl-seq function]" (reverse dest) )) + +;;; @ end +;;; + (provide 'mel-b) diff --git a/mel-q.el b/mel-q.el index 36f2d2f..8a36840 100644 --- a/mel-q.el +++ b/mel-q.el @@ -1,6 +1,34 @@ ;;; -;;; $Id: mel-q.el,v 3.0 1995/11/02 03:48:01 morioka Exp $ +;;; mel-q.el: Quoted-Printable encoder/decoder for GNU Emacs ;;; +;;; Copyright (C) 1995 Free Software Foundation, Inc. +;;; Copyright (C) 1995,1996 MORIOKA Tomohiko +;;; +;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1995/6/25 +;;; Version: +;;; $Id: mel-q.el,v 3.1 1996/01/09 18:28:53 morioka Exp $ +;;; Keywords: MIME, Quoted-Printable +;;; +;;; 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. +;;; +;;; Code: + ;;; @ constants ;;; diff --git a/mel-u.el b/mel-u.el index f2f6a50..7573cb7 100644 --- a/mel-u.el +++ b/mel-u.el @@ -1,6 +1,33 @@ ;;; -;;; $Id: mel-u.el,v 2.1 1995/11/01 06:03:14 morioka Exp $ +;;; mel-u.el: uuencode encoder/decoder for GNU Emacs ;;; +;;; Copyright (C) 1995 Free Software Foundation, Inc. +;;; Copyright (C) 1995,1996 MORIOKA Tomohiko +;;; +;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1995/10/25 +;;; Version: +;;; $Id: mel-u.el,v 3.2 1996/01/09 18:19:25 morioka Exp $ +;;; Keywords: uuencode +;;; +;;; 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. +;;; +;;; Code: ;;; @ variables ;;; @@ -34,9 +61,9 @@ (defun uuencode-external-encode-region (beg end) (interactive "*r") (save-excursion - (let ((selective-display nil) ;Disable ^M to nl translation. - (mc-flag nil) ;Mule - (kanji-flag nil)) ;NEmacs + (let (selective-display ; Disable ^M to nl translation. + mc-flag ; for Mule + kanji-flag) ; for NEmacs (apply (function call-process-region) beg end (car uuencode-external-encoder) t t nil (cdr uuencode-external-encoder)) @@ -45,9 +72,9 @@ (defun uuencode-external-decode-region (beg end) (interactive "*r") (save-excursion - (let ((selective-display nil) ;Disable ^M to nl translation. - (mc-flag nil) ;Mule - (kanji-flag nil) ;NEmacs + (let (selective-display ; Disable ^M to nl translation. + mc-flag ; for Mule + kanji-flag ; for NEmacs (filename (save-excursion (save-restriction (narrow-to-region beg end) @@ -63,11 +90,15 @@ (progn (apply (function call-process-region) beg end (car uuencode-external-decoder) - t t nil (cdr uuencode-external-decoder)) + t nil nil (cdr uuencode-external-decoder)) (setq filename (expand-file-name filename mime/tmp-dir)) (let ((file-coding-system-for-read - (if (boundp 'MULE) *noconv*)) ; Mule - kanji-fileio-code) ; NEmacs + (if (boundp 'MULE) *noconv*)) ; for Mule + kanji-fileio-code ; for NEmacs + (emx-binary-mode t) ; for OS/2 + jka-compr-compression-info-list ; for jka-compr + jam-zcat-filename-list ; for jam-zcat + require-final-newline) (insert-file-contents filename) ) (delete-file filename) diff --git a/mel.el b/mel.el index 6448f1f..1f7fbf9 100644 --- a/mel.el +++ b/mel.el @@ -1,10 +1,33 @@ ;;; -;;; mel : a MIME encoding library +;;; mel.el : a MIME encoding/decoding library ;;; -;;; by MORIOKA Tomohiko , 1995/6/25 +;;; Copyright (C) 1995 Free Software Foundation, Inc. +;;; Copyright (C) 1995,1996 MORIOKA Tomohiko ;;; -;;; $Id: mel.el,v 3.2 1995/11/02 04:19:47 morioka Exp $ +;;; Author: MORIOKA Tomohiko +;;; Maintainer: MORIOKA Tomohiko +;;; Created: 1995/6/25 +;;; Version: +;;; $Id: mel.el,v 3.3 1996/01/09 18:31:08 morioka Exp $ +;;; Keywords: MIME, Quoted-Printable ;;; +;;; 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. +;;; +;;; Code: (autoload 'base64-encode-region "mel-b" nil t) (autoload 'base64-decode-region "mel-b" nil t) -- 1.7.10.4