From: morioka <morioka>
Date: Mon, 9 Mar 1998 10:52:38 +0000 (+0000)
Subject: tm 7.10.
X-Git-Tag: tm7_10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=504c2eaf0fa6de3025b245ee2b8f9112c72bc3fb;p=elisp%2Fsemi.git

tm 7.10.
---

diff --git a/signature.el b/signature.el
index c1362d2..080468a 100644
--- a/signature.el
+++ b/signature.el
@@ -1,11 +1,20 @@
 ;;;
-;;; $Id: signature.el,v 1.6 1994/08/03 04:42:40 morioka Exp $
-;;; Modified by Yasuo OKABE 1994/08/01
-;;; 
-
-(provide 'signature)
+;;; signature.el --- signature utility for GNU Emacs
+;;;
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1994 OKABE Yasuo
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> (1994/08/01)
+;;; Version:
+;;;	$Id: signature.el,v 2.0 1995/10/05 11:24:45 morioka Exp $
+;;; Keywords: mail, news, signature
+;;;
+;;; This file is part of tm (Tools for MIME).
+;;;
 
-(require 'tl-header)
+(require 'tl-822)
 
 (defvar signature-insert-at-eof nil
   "*Insert signature at the end of file if non-nil.")
@@ -32,7 +41,7 @@
       (while r
 	(setq cell (car r))
 	(setq b (car cell))
-	(if (setq f (message/get-field-body (car b)))
+	(if (setq f (rfc822/get-field-body (car b)))
 	    (cond ((listp (cdr b))
 		   (let ((r (cdr b)))
 		     (while r
@@ -84,7 +93,8 @@
 		(insert "\n"))
 	    (delete-blank-lines)
 	    (insert-file-contents signature)
-	    (set-buffer-modified-p (buffer-modified-p)) ; force mode line update
+	    (set-buffer-modified-p (buffer-modified-p))
+					; force mode line update
 	    )))))
 
 (defun insert-signature (&optional arg)
@@ -96,3 +106,9 @@ named <signature-file-name>-DISTRIBUTION interactively."
   (if signature-insert-at-eof
 	(call-interactively 'signature/insert-signature-at-eof)
     (call-interactively 'signature/insert-signature-at-point)))
+
+
+;;; @ end
+;;;
+
+(provide 'signature)