patch to mailclient + sendmail

[David Reitter]

This patch to mailclient.el will print an informative message and  
improve the short message body that is included by default on Windows  
systems.




*** lisp/mail/mailclient.el     22 Feb 2006 19:15:36 +0000      1.4
--- lisp/mail/mailclient.el     21 Apr 2006 17:11:03 +0100      
***************
*** 162,172 ****
                    (progn
                      (clipboard-kill-ring-save
                       (+ 1 delimline) (point-max))
!                     (concat
!                      "*** E-Mail body has been placed on clipboard, "
!                      "please paste them here! ***"))
                  ;; else
!                 (buffer-substring (+ 1 delimline) (point-max))))))))))))

  (provide 'mailclient)

--- 162,173 ----
                    (progn
                      (clipboard-kill-ring-save
                       (+ 1 delimline) (point-max))
! "*** E-Mail body has been placed on clipboard, please paste it here!
! Customize `mailclient-place-body-on-clipboard-flag' to avoid this  
step. ***")
                  ;; else
!                 (buffer-substring (+ 1 delimline) (point-max)))))))
!           (message
!            "Message will be handled by system's default mail client."))))))

  (provide 'mailclient)

*** lisp/mail/sendmail.el       21 Apr 2006 17:12:35 +0100      1.302
--- lisp/mail/sendmail.el       21 Apr 2006 17:12:41 +0100      
***************
*** 879,885 ****
                     (cdr (car mail-send-actions)))
            (error))
          (setq mail-send-actions (cdr mail-send-actions)))
!       (message "Sending...done")
  	;; If buffer has no file, mark it as unmodified and delete auto- 
save.
        (if (not buffer-file-name)
            (progn
--- 879,887 ----
                     (cdr (car mail-send-actions)))
            (error))
          (setq mail-send-actions (cdr mail-send-actions)))
!       (if (equal (current-message) "Sending...")
!           ;; allow send-mail-function to show its own message
!           (message "Sending...done"))
  	;; If buffer has no file, mark it as unmodified and delete auto- 
save.
        (if (not buffer-file-name)
            (progn