X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=signature.el;h=08220bc03acb21210ac3750b317d5c7f5f89619a;hb=53ab6c426401d04d0d0ce99d6df144187be6ba01;hp=d72825e4d15818b7465c4c369fc4c7604c94cfd6;hpb=f23312823073375ef7443064a48f3175063bb7b3;p=elisp%2Ftm.git 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