/[emacs]/emacs/lisp/mail/uce.el
ViewVC logotype

Diff of /emacs/lisp/mail/uce.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by lute, Mon Jul 4 17:46:22 2005 UTC revision 1.14 by rms, Sat Jul 16 18:05:23 2005 UTC
# Line 283  address, and postmaster of the mail rela Line 283  address, and postmaster of the mail rela
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)))
# Line 364  address, and postmaster of the mail rela Line 364  address, and postmaster of the mail rela
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.

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26