;;; mime-def.el --- definition module for SEMI
-;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-def.el,v 0.69 1997-10-02 07:57:54 morioka Exp $
;; Keywords: definition, MIME, multimedia, mail, news
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;;; Code:
(require 'emu)
+(require 'custom)
+
+(defgroup mime nil
+ "Emacs MIME Interfaces"
+ :group 'news
+ :group 'mail)
+
+(custom-handle-keyword 'default-mime-charset :group 'mime
+ 'custom-variable)
(unless (fboundp 'butlast)
(defun butlast (x &optional n)
x))))
)
-(defconst semi-version-name "Oyanagi")
+(defconst mime-module-version '("SEMI" "Nomachi" 1 2 1)
+ "Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
"Caesar rotation of current region." t)
;;; @ button
;;;
-(defvar mime-button-face 'bold
- "Face used for content-button or URL-button of MIME-Preview buffer.")
+(defcustom mime-button-face 'bold
+ "Face used for content-button or URL-button of MIME-Preview buffer."
+ :group 'mime
+ :type 'face)
-(defvar mime-button-mouse-face 'highlight
- "Face used for MIME-preview buffer mouse highlighting.")
+(defcustom mime-button-mouse-face 'highlight
+ "Face used for MIME-preview buffer mouse highlighting."
+ :group 'mime
+ :type 'face)
(defsubst mime-add-button (from to function &optional data)
"Create a button between FROM and TO with callback FUNCTION and DATA."
;; (widget-push-button-value-create
;; (widget-convert 'push-button
;; :notify (lambda (&rest ignore)
- ;; (mime-view-play-current-entity)
+ ;; (mime-preview-play-current-entity)
;; )
;; string))
(insert "\n")