;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> (1994/08/01)
;;; Version:
-;;; $Id: signature.el,v 4.0 1995/10/26 09:25:23 morioka Exp $
+;;; $Id: signature.el,v 7.0 1995/11/16 16:28:53 morioka Exp $
;;; Keywords: mail, news, signature
;;;
;;; This file is part of tm (Tools for MIME).
signature-file-name
nil)
(signature/get-signature-file-name)))))
- (save-excursion
- (if (file-readable-p signature)
- (progn
- (goto-char (point-max))
- (if (not (bolp))
- (insert "\n"))
- (delete-blank-lines)
- (insert-file-contents signature)
- (set-buffer-modified-p (buffer-modified-p))
+ (if (file-readable-p signature)
+ (progn
+ (goto-char (point-max))
+ (if (not (bolp))
+ (insert "\n"))
+ (delete-blank-lines)
+ (insert-file-contents signature)
+ (set-buffer-modified-p (buffer-modified-p))
; force mode line update
- )))
+ ))
signature))
(defun insert-signature (&optional arg)