X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-def.el;h=1812efc25296283ae330830597b0f3d39f92a062;hb=0b3d4d517cb3b15d5d9f196ae8f0362c4b693155;hp=6bbbd97f446c2d330eaa89bdddefdbf4149d7dcb;hpb=040f94730cb933354939ebb99468b5c360042db1;p=elisp%2Fflim.git diff --git a/mime-def.el b/mime-def.el index 6bbbd97..1812efc 100644 --- a/mime-def.el +++ b/mime-def.el @@ -1,11 +1,11 @@ -;;; mime-def.el --- definition module for SEMI +;;; mime-def.el --- definition module about MIME ;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko ;; Keywords: definition, MIME, multimedia, mail, news -;; This file is part of SEMI (Spadework for Emacs MIME Interfaces). +;; This file is part of FLIM (Faithful Library about Internet Message). ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -24,9 +24,8 @@ ;;; Code: -(defconst mime-spadework-module-version - '("FLIM" "Ky-Dòto"-A 1 0 1)) - +(defconst mime-spadework-module-version-string + "FLIM 1.1.1 - \"J-Dþjò\" ")-A (require 'custom) @@ -38,6 +37,15 @@ (custom-handle-keyword 'default-mime-charset :group 'mime 'custom-variable) +(defvar mime-temp-directory (or (getenv "MIME_TMP_DIR") + (getenv "TM_TMP_DIR") + (getenv "TMPDIR") + (getenv "TMP") + (getenv "TEMP") + "/tmp/") + "*Directory for temporary files.") + + (unless (fboundp 'butlast) (defun butlast (x &optional n) "Returns a copy of LIST with the last N elements removed." @@ -72,6 +80,16 @@ (concat mime-token-regexp "/" mime-token-regexp)) +;;; @@ Quoted-Printable +;;; + +(defconst quoted-printable-hex-chars "0123456789ABCDEF") + +(defconst quoted-printable-octet-regexp + (concat "=[" quoted-printable-hex-chars + "][" quoted-printable-hex-chars "]")) + + ;;; @ end ;;;