From 3277bb075f16edab9d78a9f319e96b32e2af6ebe Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 11:38:11 +0000 Subject: [PATCH] tm 7.26. --- signature.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/signature.el b/signature.el index e577f90..ecd1673 100644 --- a/signature.el +++ b/signature.el @@ -8,7 +8,7 @@ ;;; Author: MORIOKA Tomohiko ;;; OKABE Yasuo (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). @@ -98,17 +98,16 @@ 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) -- 1.7.10.4