283 |
(re-search-forward "^Lines:") |
(re-search-forward "^Lines:") |
284 |
(beginning-of-line)) |
(beginning-of-line)) |
285 |
((eq uce-mail-reader 'rmail) |
((eq uce-mail-reader 'rmail) |
286 |
(beginning-of-buffer) |
(goto-char (point-min)) |
287 |
(search-forward "*** EOOH ***\n") |
(search-forward "*** EOOH ***\n") |
288 |
(beginning-of-line) |
(beginning-of-line) |
289 |
(forward-line -1))) |
(forward-line -1))) |
364 |
(if (file-exists-p "~/.signature") |
(if (file-exists-p "~/.signature") |
365 |
(progn |
(progn |
366 |
(insert "\n\n-- \n") |
(insert "\n\n-- \n") |
367 |
(insert-file "~/.signature") |
(forward-char (cadr (insert-file-contents "~/.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)))) |
|
368 |
(uce-signature |
(uce-signature |
369 |
(insert "\n\n-- \n" uce-signature))) |
(insert "\n\n-- \n" uce-signature))) |
370 |
;; And text of the original message. |
;; And text of the original message. |