From 3892610361dfa9c08564848209823d1fe4c4fbd7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Jul 2005 18:05:23 +0000 Subject: [PATCH] (uce-reply-to-uce): Replace beginning-of-buffer and insert-file. --- lisp/mail/uce.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 14e613ac280..2a7fedf8493 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -283,7 +283,7 @@ address, and postmaster of the mail relay used." (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 @@ address, and postmaster of the mail relay used." (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. -- 2.39.2