;;; semi-setup.el --- setup file for MIME-View.
-;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: semi-setup.el,v 0.15 1997-03-14 08:46:14 morioka Exp $
;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of SEMI (Setting 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 'mime-def)
-(require 'file-detect)
-
-
-;;; @ for mime-view
-;;;
-
-(call-after-loaded
- 'mime-view
- (function
- (lambda ()
- ;; for message/partial
- (require 'mime-partial)
- )))
+(require 'semi-def)
+(require 'path-util)
;; for image/* and X-Face
;;;
(defun mime-setup-set-signature-key ()
- (let ((key (or (cdr (assq major-mode mime-setup-signature-key-alist))
- mime-setup-default-signature-key)))
- (define-key (current-local-map) key (function insert-signature))
- ))
+ (let ((keymap (current-local-map)))
+ (if keymap
+ (let ((key
+ (or (cdr (assq major-mode mime-setup-signature-key-alist))
+ mime-setup-default-signature-key)))
+ (define-key keymap key (function insert-signature))
+ ))))
(if mime-setup-use-signature
(progn