Mercurial > emacs
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.