*** wl-2.2.9-orig/wl-draft.el	Tue Nov 16 10:35:35 1999
--- wl-2.2.9/wl-draft.el	Tue Nov 16 12:40:41 1999
***************
*** 727,733 ****
  	    (wl-draft-delete-field "resent-bcc" delimline)
  	    (as-binary-process
  	     (when recipients
! 	       (let ((err (smtp-via-smtp sender recipients (current-buffer))))
  		 (when (not (eq err t))
  		   (wl-draft-write-sendlog 'failed 'smtp smtp-server
  					   recipients id)
--- 727,746 ----
  	    (wl-draft-delete-field "resent-bcc" delimline)
  	    (as-binary-process
  	     (when recipients
! 	       (let ((err 
! 		      (if (and wl-smtp-authenticate-type
! 			       wl-smtp-posting-user)
!  			 (smtp-via-smtp 
!  			  sender
!  			  recipients
!  			  (current-buffer)
!  			  wl-smtp-authenticate-type
!  			  wl-smtp-posting-user
!  			  (elmo-get-passwd
!  			   (format "%s@%s" 
!  				   wl-smtp-posting-user
!  				   smtp-server)))
! 			(smtp-via-smtp sender recipients (current-buffer)))))
  		 (when (not (eq err t))
  		   (wl-draft-write-sendlog 'failed 'smtp smtp-server
  					   recipients id)
*** wl-vars.el-orig	Thu Oct 28 16:59:47 1999
--- wl-vars.el	Thu Oct 28 17:08:59 1999
***************
*** 229,234 ****
--- 229,243 ----
    :type 'string
    :group 'wl)
  
+ (defcustom wl-smtp-authenticate-type nil
+   "*SMTP Authentication type. 
+ If nil, don't authenticate."
+   :type '(choice (const :tag "none" nil)
+ 		 (const :tag "PLAIN" "plain")
+ 		 (const :tag "CRAM-MD5" "cram-md5")
+ 		 (const :tag "LOGIN" "login")
+ 		 (string :tag "Other"))
+   :group 'wl)
  (defcustom wl-envelope-from nil
    "*Envelope From used in SMTP.
  If nil, wl-from is used."