projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fa7836e
)
tm 7.71.
tm7_71
tm7_72
tm7_73
tm7_74
tm7_75
tm7_76
tm7_77
tm7_78
tm7_79
author
morioka
<morioka>
Mon, 9 Mar 1998 19:32:41 +0000
(19:32 +0000)
committer
morioka
<morioka>
Mon, 9 Mar 1998 19:32:41 +0000
(19:32 +0000)
signature.el
patch
|
blob
|
history
diff --git
a/signature.el
b/signature.el
index
08220bc
..
a3850a7
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.10 1996/05/28 03:04:34 morioka Exp $
+;;; $Id: signature.el,v 7.11 1996/07/10 13:45:06 shuhei-k 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).
@@
-41,7
+41,7
@@
;;;
(defvar signature-insert-at-eof nil
;;;
(defvar signature-insert-at-eof nil
- "*Insert signature at the end of file if non-nil.")
+ "*If non-nil, insert signature at the end of file.")
(defvar signature-delete-blank-lines-at-eof nil
"*If non-nil, signature-insert-at-eof deletes blank lines at the end
(defvar signature-delete-blank-lines-at-eof nil
"*If non-nil, signature-insert-at-eof deletes blank lines at the end
@@
-127,7
+127,7
@@
of file.")
(defun insert-signature (&optional arg)
"Insert the file named by signature-file-name.
(defun insert-signature (&optional arg)
"Insert the file named by signature-file-name.
-It is inserted at the end of file if signature-insert-at-eof in non-nil,
+It is inserted at the end of file if signature-insert-at-eof is 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")
@@
-145,7
+145,7
@@
specify a file named <signature-file-name>-DISTRIBUTION interactively."
(progn
(goto-char (point-max))
(or (bolp) (insert "\n"))
(progn
(goto-char (point-max))
(or (bolp) (insert "\n"))
- (or signature-delete-blank-lines-at-eof (delete-blank-lines))
+ (if signature-delete-blank-lines-at-eof (delete-blank-lines))
))
(run-hooks 'signature-insert-hook)
(insert-file-contents signature-file-name)
))
(run-hooks 'signature-insert-hook)
(insert-file-contents signature-file-name)