tm 7.10.

diff --git a/signature.el b/signature.el
index c1362d2..080468a 100644 (file)
--- 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)