projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tm 7.67.
[elisp/tm.git]
/
signature.el
diff --git
a/signature.el
b/signature.el
index
d72825e
..
08220bc
100644
(file)
--- a/
signature.el
+++ b/
signature.el
@@
-14,7
+14,7
@@
;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Created: 1994/7/11
;;; Version:
;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; 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).
;;; 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 <signature-file-name>-DISTRIBUTION interactively."
(interactive "P")
and otherwise at the current point. A prefix argument enables user to
specify a file named <signature-file-name>-DISTRIBUTION interactively."
(interactive "P")
- (let ((signature
+ (let ((signature-file-name
(expand-file-name
(or (and signature-use-bbdb
(signature/get-sigtype-from-bbdb arg))
(expand-file-name
(or (and signature-use-bbdb
(signature/get-sigtype-from-bbdb arg))
@@
-139,8
+139,8
@@
specify a file named <signature-file-name>-DISTRIBUTION interactively."
(signature/get-sigtype-interactively))
(signature/get-signature-file-name))
)))
(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))
(if signature-insert-at-eof
(progn
(goto-char (point-max))
@@
-148,9
+148,9
@@
specify a file named <signature-file-name>-DISTRIBUTION interactively."
(or signature-delete-blank-lines-at-eof (delete-blank-lines))
))
(run-hooks 'signature-insert-hook)
(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)
(force-mode-line-update)
- signature))
+ signature-file-name))
;;; @ end
;;; @ end