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:
23f9ecb
)
semi 0.96.
author
morioka
<morioka>
Tue, 10 Mar 1998 18:39:36 +0000
(18:39 +0000)
committer
morioka
<morioka>
Tue, 10 Mar 1998 18:39:36 +0000
(18:39 +0000)
signature.el
patch
|
blob
|
history
diff --git
a/signature.el
b/signature.el
index
b111892
..
3a2446b
100644
(file)
--- a/
signature.el
+++ b/
signature.el
@@
-1,18
+1,16
@@
;;; signature.el --- a signature utility for GNU Emacs
;;; signature.el --- a signature utility for GNU Emacs
-;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; Artur Pioro <artur@flugor.if.uj.edu.pl>
;; KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; Created: 1994/7/11
;; KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; Created: 1994/7/11
-;; Version:
-;; $Id: signature.el,v 7.13 1996/08/30 04:34:56 morioka Exp $
+;; Version: $Id: signature.el,v 7.15 1997/07/04 16:41:27 morioka Exp $
;; Keywords: mail, news, signature
;; Keywords: mail, news, signature
-;; This file is part of tm (Tools for MIME).
+;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@
-47,6
+45,10
@@
of file.")
(defvar signature-load-hook nil
"*List of functions called after signature.el is loaded.")
(defvar signature-load-hook nil
"*List of functions called after signature.el is loaded.")
+(defvar signature-separator "-- \n"
+ "*String to separate contents and signature.
+It is inserted when signature is inserted at end of file.")
+
(defvar signature-file-name "~/.signature"
"*Name of file containing the user's signature.")
(defvar signature-file-name "~/.signature"
"*Name of file containing the user's signature.")
@@
-145,6
+147,9
@@
specify a file named <signature-file-name>-DISTRIBUTION interactively."
(if signature-delete-blank-lines-at-eof (delete-blank-lines))
))
(run-hooks 'signature-insert-hook)
(if signature-delete-blank-lines-at-eof (delete-blank-lines))
))
(run-hooks 'signature-insert-hook)
+ (if (= (point)(point-max))
+ (insert signature-separator)
+ )
(insert-file-contents signature-file-name)
(force-mode-line-update)
signature-file-name))
(insert-file-contents signature-file-name)
(force-mode-line-update)
signature-file-name))