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.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
