From 67bedc51d8575e2536e2ecde0c55d9d3c7ac3399 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 12:37:12 +0000 Subject: [PATCH] tm 7.39. --- signature.el | 28 ++++++++++++++++++++++++---- 1 file changed, 24 insertions(+), 4 deletions(-) diff --git a/signature.el b/signature.el index 937885b..324ace7 100644 --- a/signature.el +++ b/signature.el @@ -7,20 +7,40 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; OKABE Yasuo (1994/08/01) +;;; Created: 1994/7/11 ;;; Version: -;;; $Id: signature.el,v 7.1 1995/12/14 06:22:20 morioka Exp $ +;;; $Id: signature.el,v 7.3 1995/12/25 05:29:00 morioka Exp $ ;;; Keywords: mail, news, signature ;;; ;;; This file is part of tm (Tools for MIME). ;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 2, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with This program. If not, write to the Free Software +;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;;; +;;; Code: (require 'tl-822) (defvar signature-insert-at-eof nil - "*Insert signature at the end of file if non-nil.") + "*Insert signature at the end of file if non-nil. [signature.el]") + +(defvar signature-delete-blank-lines-at-eof nil + "*Signature-insert-at-eof deletes blank lines at the end of file +if non-nil. [signature.el]") (defvar signature-file-name "~/.signature" - "*Name of file containing the user's signature.") + "*Name of file containing the user's signature. [signature.el]") (defvar signature-file-alist nil) @@ -103,7 +123,7 @@ (goto-char (point-max)) (if (not (bolp)) (insert "\n")) - ;;(delete-blank-lines) + (if signature-delete-blank-lines-at-eof (delete-blank-lines)) (insert-file-contents signature) (set-buffer-modified-p (buffer-modified-p)) ; force mode line update -- 1.7.10.4