(mime-setup-set-signature-key): Check local keymap is exist or not to

fix problem about `gnus-summary-resend-message'.

diff --git a/semi-setup.el b/semi-setup.el
index 1eecdbb..1d5bb62 100644 (file)
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 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 $
+;; Version: $Id: semi-setup.el,v 0.17 1997-10-21 16:55:04 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -99,10 +99,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