]> code.delx.au - gnu-emacs/commitdiff
(uce-reply-to-uce): Replace beginning-of-buffer and insert-file.
authorRichard M. Stallman <rms@gnu.org>
Sat, 16 Jul 2005 18:05:23 +0000 (18:05 +0000)
committerRichard M. Stallman <rms@gnu.org>
Sat, 16 Jul 2005 18:05:23 +0000 (18:05 +0000)
lisp/mail/uce.el

index 14e613ac28082eb1f3464f8c58f33f42aa154711..2a7fedf849320814dcb3532e39e00f85590f913e 100644 (file)
@@ -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.