tm 7.26.

diff --git a/signature.el b/signature.el
index e577f90..ecd1673 100644 (file)
--- a/signature.el
+++ b/signature.el
@@ -8,7 +8,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> (1994/08/01)
 ;;; Version:
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> (1994/08/01)
 ;;; Version:

-;;;    $Id: signature.el,v 4.0 1995/10/26 09:25:23 morioka Exp $
+;;;    $Id: signature.el,v 7.0 1995/11/16 16:28:53 morioka Exp $

 ;;; Keywords: mail, news, signature
 ;;;
 ;;; This file is part of tm (Tools for MIME).
 ;;; Keywords: mail, news, signature
 ;;;
 ;;; This file is part of tm (Tools for MIME).

@@ -98,17 +98,16 @@
                              signature-file-name
                              nil)
            (signature/get-signature-file-name)))))
                              signature-file-name
                              nil)
            (signature/get-signature-file-name)))))

-    (save-excursion
-      (if (file-readable-p signature)
-         (progn
-           (goto-char (point-max))
-           (if (not (bolp))
-               (insert "\n"))
-           (delete-blank-lines)
-           (insert-file-contents signature)
-           (set-buffer-modified-p (buffer-modified-p))
+    (if (file-readable-p signature)
+       (progn
+         (goto-char (point-max))
+         (if (not (bolp))
+             (insert "\n"))
+         (delete-blank-lines)
+         (insert-file-contents signature)
+         (set-buffer-modified-p (buffer-modified-p))

                                        ; force mode line update
                                        ; force mode line update

-           )))
+         ))

     signature))
 
 (defun insert-signature (&optional arg)
     signature))
 
 (defun insert-signature (&optional arg)