--- a/.emacs-my	Mon Nov 07 02:25:36 2011 +0200
+++ b/.emacs-my	Mon Nov 07 02:47:12 2011 +0200
@@ -1171,12 +1171,15 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "smtp, smtpmail")
 
-(setq
- ;; If you use the default mail user agent.
- send-mail-function 'smtpmail-send-it
- ;; If you use Message or Gnus.
- message-send-mail-function 'smtpmail-send-it
-)
+(when (boundp 'smtpmail-smtp-server)
+  (require 'smtpmail)
+  (setq
+   ;; If you use the default mail user agent.
+   send-mail-function 'smtpmail-send-it
+   ;; If you use Message or Gnus.
+   message-send-mail-function 'smtpmail-send-it
+   )
+  )
 ;; (setq smtpmail-debug-verb t)
 ;; (setq smtpmail-debug-info t)