From: morioka <morioka>
Date: Tue, 21 Oct 1997 16:55:04 +0000 (+0000)
Subject: (mime-setup-set-signature-key): Check local keymap is exist or not to
X-Git-Tag: semi-0_115_2~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fb84607dacc3d5d4d6941618450b4c1dc7809a7e;p=elisp%2Fsemi.git

(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
--- 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