mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(uce-reply-to-uce): Replace beginning-of-buffer and insert-file.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-07-16 18:05:23 +00:00
parent 8877fa6fb3
commit 3892610361
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/uce.el
View 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.