From fa7836eea7a21e237e84ce4df4822e42acc80b26 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 18:56:31 +0000 Subject: [PATCH] tm 7.66. --- signature.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/signature.el b/signature.el index d72825e..08220bc 100644 --- a/signature.el +++ b/signature.el @@ -14,7 +14,7 @@ ;;; Maintainer: KOBAYASHI Shuhei ;;; Created: 1994/7/11 ;;; Version: -;;; $Id: signature.el,v 7.9 1996/04/19 18:12:43 morioka Exp $ +;;; $Id: signature.el,v 7.10 1996/05/28 03:04:34 morioka Exp $ ;;; Keywords: mail, news, signature ;;; ;;; This file is part of tm (Tools for MIME). @@ -131,7 +131,7 @@ It is inserted at the end of file if signature-insert-at-eof in non-nil, and otherwise at the current point. A prefix argument enables user to specify a file named -DISTRIBUTION interactively." (interactive "P") - (let ((signature + (let ((signature-file-name (expand-file-name (or (and signature-use-bbdb (signature/get-sigtype-from-bbdb arg)) @@ -139,8 +139,8 @@ specify a file named -DISTRIBUTION interactively." (signature/get-sigtype-interactively)) (signature/get-signature-file-name)) ))) - (or (file-readable-p signature) - (error "Cannot open signature file: %s" signature)) + (or (file-readable-p signature-file-name) + (error "Cannot open signature file: %s" signature-file-name)) (if signature-insert-at-eof (progn (goto-char (point-max)) @@ -148,9 +148,9 @@ specify a file named -DISTRIBUTION interactively." (or signature-delete-blank-lines-at-eof (delete-blank-lines)) )) (run-hooks 'signature-insert-hook) - (insert-file-contents signature) + (insert-file-contents signature-file-name) (force-mode-line-update) - signature)) + signature-file-name)) ;;; @ end -- 1.7.10.4