(mime-module-version): Update.

[elisp/semi.git] / semi-setup.el

diff --git a/semi-setup.el b/semi-setup.el
index 1eecdbb..b3811c2 100644 (file)
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -1,12 +1,11 @@
 ;;; 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.16 1997-03-18 13:06:09 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
@@ -25,8 +24,8 @@
 
 ;;; Code:
 
-(require 'mime-def)
-(require 'file-detect)
+(require 'semi-def)
+(require 'path-util)
 
 
 ;; for image/* and X-Face
@@ -99,10 +98,13 @@
 ;;;
 
 (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