gmail smtp

[Yoichi NAKAYAMA]

At Thu, 15 Jun 2006 14:41:03 -0400,
Hans Halvorson wrote:
> 
> Yoichi NAKAYAMA wrote:
> > At Thu, 15 Jun 2006 23:46:59 +0900,
> > Yoichi NAKAYAMA wrote:
> > 
> >>At Thu, 15 Jun 2006 09:23:01 -0400,
> >>Hans Halvorson wrote:
> >>
> >>>Update: Apparently google does not follow the smtp protocol -- they
> >>>send the wrong message after QUIT.  The following setup *does* work to
> >>>send mail, but Wanderlust will report "SMTP error", because it gets
> >>>the wrong QUIT message from smpt.gmail.com:
> >>>
> >>>(setq wl-smtp-connection-type 'starttls)
> >>>(setq wl-smtp-posting-port 587)
> >>>(setq wl-smtp-authenticate-type "plain")
> >>>(setq wl-smtp-posting-user "gmail.username")
> >>>(setq wl-smtp-posting-server "smtp.gmail.com")
> >>>(setq wl-from "gmail.username at gmail.com")
> >>
> >>smtp.gmail.com closes connection without responding to
> >>QUIT command. RFC2821 forbids such behaviour in section
> >>4.1.1.10.
> > By the way, I think the sending operation corresponds to
> > "previously completed transaction" in that specification.
> > If it is true, wanderlust should ignore the error.
> > Regards,
> 
> Do you mean that Wanderlust, as currently set up, should not be giving
> an error -- or that Wanderlust should be modified so that it does not
> report an error?  (I do receive an error message "SMTP error" when
> sending with smtp.gmail.com, but the mail is nonetheless sent.)

The latter. Following change works for me.
Regards,
-- 
Yoichi NAKAYAMA

--- smtp.el	18 Feb 2006 02:26:25 -0000	1.5.2.24
+++ smtp.el	15 Jun 2006 23:37:39 -0000
@@ -423,7 +423,9 @@
 	(smtp-primitive-data package))
     (let ((connection (smtp-find-connection (current-buffer))))
       (when (smtp-connection-opened connection)
-	(smtp-primitive-quit package)
+	(condition-case nil
+	    (smtp-primitive-quit package)
+	  (smtp-error))
 	(smtp-close-connection connection)))))
 
 (defun smtp-send-buffer-by-myself (sender recipients buffer)