tm 7.26. tm7_26 tm7_27 tm7_27_1 tm7_27_2 tm7_28 tm7_29 tm7_30 tm7_31 tm7_32 tm7_33
authormorioka <morioka>
Mon, 9 Mar 1998 11:38:11 +0000 (11:38 +0000)
committermorioka <morioka>
Mon, 9 Mar 1998 11:38:11 +0000 (11:38 +0000)
signature.el

index e577f90..ecd1673 100644 (file)
@@ -8,7 +8,7 @@
 ;;; 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).
                              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
-           )))
+         ))
     signature))
 
 (defun insert-signature (&optional arg)