From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.devel Subject: Re: smtpmail.el and 1msg Date: Wed, 10 Mar 2004 23:51:56 +0100 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: References: <16455.40870.198614.821339@freezer.sbum.org> <16463.23363.546305.750102@freezer.sbum.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1079056855 8850 80.91.224.253 (12 Mar 2004 02:00:55 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 12 Mar 2004 02:00:55 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Fri Mar 12 03:00:47 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1B1byh-0001Ur-00 for ; Fri, 12 Mar 2004 03:00:47 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1B1byg-0006kA-00 for ; Fri, 12 Mar 2004 03:00:46 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B1btv-0003qS-En for emacs-devel@quimby.gnus.org; Thu, 11 Mar 2004 20:55:51 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1B1CZA-0003Mf-0K for emacs-devel@gnu.org; Wed, 10 Mar 2004 17:52:44 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1B1CYa-0003Gd-Hf for emacs-devel@gnu.org; Wed, 10 Mar 2004 17:52:39 -0500 Original-Received: from [217.13.230.178] (helo=yxa.extundo.com) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.30) id 1B1CYZ-0003Fg-Hi for emacs-devel@gnu.org; Wed, 10 Mar 2004 17:52:07 -0500 Original-Received: from latte.josefsson.org (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.11/8.12.11) with ESMTP id i2AMpwJp017223 (version=TLSv1/SSLv3 cipher=EDH-RSA-DES-CBC3-SHA bits=168 verify=NO); Wed, 10 Mar 2004 23:51:58 +0100 Original-To: jglauner@sbum.org X-Hashcash: 0:040310:jglauner@sbum.org:9d4be6fee6b7b616 X-Hashcash: 0:040310:emacs-devel@gnu.org:9232f96c4740742e In-Reply-To: <16463.23363.546305.750102@freezer.sbum.org> (jglauner@sbum.org's message of "Wed, 10 Mar 2004 12:15:31 -0600") User-Agent: Gnus/5.110002 (No Gnus v0.2) Emacs/21.3.50 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:20327 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:20327 jglauner@sbum.org writes: > > Do you have of a reference to this 1msg stuff? > > http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&threadm=53a824b6.0402031144.54558593%40posting.google.com&rnum=30&prev=/groups%3Fq%3D1msg%26start%3D20%26hl%3Den%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8%26selm%3D53a824b6.0402031144.54558593%2540posting.google.com%26rnum%3D30 > > Sorry about the long URL there, but I that thread was as close as I > could find. Basically, SBC came in and made some changes that aren't > compatible with various mailers including Mozilla, Eudora, and Emacs > smtpmail... If I use smtpauth.sbcglobal.net and use AUTH LOGIN, I can > send just fine and it waits for QUIT just like it's supposed to. > > Ultimately, I suspect that other ISPs are going to use the 1msg option > to help stop spammers. *eyeroll* Not sure how it should be > incorporated... all I know for sure is that my patch Works For Me. > ;-) Thanks for the reference. I'm not sure about your patch -- it appears wrong to look for /1msg. I think the right fix would be to fix the code so that smtpmail.el doesn't hang forever waiting for response to QUIT. So it should work without detecting "/1msg". Does this patch help? If not, can you pinpoint exactly where does smtpmail.el hang, using (setq debug-on-quit t) and pressing C-g when it spins? --- smtpmail.el.~1.65.~ 2004-02-11 13:34:59.000000000 +0100 +++ smtpmail.el 2004-03-10 23:50:06.000000000 +0100 @@ -1,6 +1,6 @@ ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail -;; Copyright (C) 1995, 1996, 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Tomoji Kagatani ;; Maintainer: Simon Josefsson @@ -778,10 +778,12 @@ (response-continue t) (return-value '(nil ())) match-end) - + (catch 'done (while response-continue (goto-char smtpmail-read-point) (while (not (search-forward "\r\n" nil t)) + (unless (memq (process-status process) '(open run)) + (throw 'done nil)) (accept-process-output process) (goto-char smtpmail-read-point)) @@ -817,10 +819,8 @@ (setq smtpmail-read-point match-end) (setq response-continue nil) (setq return-value - (cons nil (nreverse response-strings))) - ) - ))) - (setq smtpmail-read-point match-end) + (cons nil (nreverse response-strings))))))) + (setq smtpmail-read-point match-end)) return-value))