From xemacs-m  Wed Jan 29 00:16:50 1997
Received: from dres.elam.org (dres@cola51.scsn.net [206.25.247.51])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id AAA29300 for <xemacs-beta@xemacs.org>; Wed, 29 Jan 1997 00:16:47 -0600 (CST)
Received: (from dres@localhost)
	by dres.elam.org (8.8.5/8.8.5) id BAA22843;
	Wed, 29 Jan 1997 01:13:14 -0500
To: xemacs-beta@xemacs.org
Subject: minor patch
Mime-Version: 1.0 (generated by tm-edit 7.100)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Jan_29_01:13:14_1997-1"
Content-Transfer-Encoding: 7bit
From: James LewisMoss <dres@scsn.net>
Date: 29 Jan 1997 01:13:14 -0500
Message-ID: <hh3evlxb45.fsf@dres.elam.org>
Lines: 46
X-Mailer: Gnus v5.2.40/XEmacs 20.0

--Multipart_Wed_Jan_29_01:13:14_1997-1
Content-Type: text/plain; charset=US-ASCII

Don't know if this is the correct way to do this.  I'm a newbie elisp
programmer. :)  But in the signature.el in tm it runs a set of hooks
so that you could say insert '-- ' in front of your signature before
it is inserted.  Problem is that it doesn't put you back in front of
the text you may insert with the hooks.  IMO it should so here is a
patch to fix that.

Jim

-- 
@James LewisMoss                 | moss@cs.sc.edu | Blessed Be!
@    http://www.cs.sc.edu/~moss  | dres@scsn.net  | Linux is cool!
@"Argue for your limitations and sure enough, they're yours." Bach


--Multipart_Wed_Jan_29_01:13:14_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="xepatch"
Content-Transfer-Encoding: 7bit

--- ./signature.el.old	Wed Jan 29 01:01:55 1997
+++ ./signature.el	Wed Jan 29 01:12:27 1997
@@ -144,8 +144,10 @@
           (or (bolp) (insert "\n"))
           (if signature-delete-blank-lines-at-eof (delete-blank-lines))
           ))
-    (run-hooks 'signature-insert-hook)
-    (insert-file-contents signature-file-name)
+    (save-excursion
+      (progn 
+        (run-hooks 'signature-insert-hook)
+        (insert-file-contents signature-file-name)))
     (force-mode-line-update)
     signature-file-name))
 

--Multipart_Wed_Jan_29_01:13:14_1997-1
Content-Type: text/plain; charset=US-ASCII




--Multipart_Wed_Jan_29_01:13:14_1997-1--

