[Emacs-diffs] Changes to emacs/lisp/mail/uce.el

[Richard M . Stallman]

Index: emacs/lisp/mail/uce.el
diff -c emacs/lisp/mail/uce.el:1.13 emacs/lisp/mail/uce.el:1.14
*** emacs/lisp/mail/uce.el:1.13 Mon Jul  4 17:46:22 2005
--- emacs/lisp/mail/uce.el      Sat Jul 16 18:05:23 2005
***************
*** 283,289 ****
             (re-search-forward "^Lines:")
             (beginning-of-line))
            ((eq uce-mail-reader 'rmail)
!            (beginning-of-buffer)
             (search-forward "*** EOOH ***\n")
             (beginning-of-line)
             (forward-line -1)))
--- 283,289 ----
             (re-search-forward "^Lines:")
             (beginning-of-line))
            ((eq uce-mail-reader 'rmail)
!            (goto-char (point-min))
             (search-forward "*** EOOH ***\n")
             (beginning-of-line)
             (forward-line -1)))
***************
*** 364,374 ****
               (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))))
              (uce-signature
               (insert "\n\n-- \n" uce-signature)))
        ;; And text of the original message.
--- 364,370 ----
               (if (file-exists-p "~/.signature")
                   (progn
                     (insert "\n\n-- \n")
!                    (forward-char (cadr (insert-file-contents 
"~/.signature"))))))
              (uce-signature
               (insert "\n\n-- \n" uce-signature)))
        ;; And text of the original message.