changeset 64386:d24c0f192f20

(uce-reply-to-uce): Replace beginning-of-buffer and insert-file.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 Jul 2005 18:05:23 +0000
parents 3b6714810ffc
children fea47ebca4ae
files lisp/mail/uce.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/uce.el	Sat Jul 16 18:02:07 2005 +0000
+++ b/lisp/mail/uce.el	Sat Jul 16 18:05:23 2005 +0000
@@ -283,7 +283,7 @@
 	     (re-search-forward "^Lines:")
 	     (beginning-of-line))
 	    ((eq uce-mail-reader 'rmail)
-	     (beginning-of-buffer)
+	     (goto-char (point-min))
 	     (search-forward "*** EOOH ***\n")
 	     (beginning-of-line)
 	     (forward-line -1)))
@@ -364,11 +364,7 @@
 	       (if (file-exists-p "~/.signature")
 		   (progn
 		     (insert "\n\n-- \n")
-		     (insert-file "~/.signature")
-		     ;; Function insert-file leaves point where it was,
-		     ;; while we want to place signature in the ``middle''
-		     ;; of the message.
-		     (exchange-point-and-mark))))
+		     (forward-char (cadr (insert-file-contents "~/.signature"))))))
 	      (uce-signature
 	       (insert "\n\n-- \n" uce-signature)))
 	;; And text of the original message.