From 504c2eaf0fa6de3025b245ee2b8f9112c72bc3fb Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 10:52:38 +0000 Subject: [PATCH] tm 7.10. --- signature.el | 32 ++++++++++++++++++++++++-------- 1 file changed, 24 insertions(+), 8 deletions(-) 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 +;;; OKABE Yasuo (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 -DISTRIBUTION interactively." (if signature-insert-at-eof (call-interactively 'signature/insert-signature-at-eof) (call-interactively 'signature/insert-signature-at-point))) + + +;;; @ end +;;; + +(provide 'signature) -- 1.7.10.4