From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Binjo Newsgroups: gmane.emacs.devel Subject: issue of smtpmail-via-smtp Date: Tue, 05 Jul 2011 11:29:34 +0800 Organization: Wh0 CaR3s Message-ID: <20fwmle76p.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1309838079 9267 80.91.229.12 (5 Jul 2011 03:54:39 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 5 Jul 2011 03:54:39 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Jul 05 05:54:35 2011 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QdwiY-0004Rc-Ft for ged-emacs-devel@m.gmane.org; Tue, 05 Jul 2011 05:54:34 +0200 Original-Received: from localhost ([::1]:56677 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QdwiW-0004RC-Ke for ged-emacs-devel@m.gmane.org; Mon, 04 Jul 2011 23:54:32 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:51883) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qdwi9-0004QO-CS for emacs-devel@gnu.org; Mon, 04 Jul 2011 23:54:10 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qdwi7-0003AA-Vr for emacs-devel@gnu.org; Mon, 04 Jul 2011 23:54:09 -0400 Original-Received: from [66.220.23.115] (port=8061 helo=msgu.anchiva.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qdwi7-00034q-Qa for emacs-devel@gnu.org; Mon, 04 Jul 2011 23:54:07 -0400 Original-Received: from gw.anchiva.com ([192.168.30.106] RDNS failed) by msgu.anchiva.com with Microsoft SMTPSVC(6.0.3790.1830); Tue, 5 Jul 2011 11:23:02 +0800 Original-Received: from unknown (HELO unknown) ([122.224.129.146]) by gw.anchiva.com with ESMTP; 05 Jul 2011 11:35:03 +0800 User-Agent: Emacs Gnus X-OriginalArrivalTime: 05 Jul 2011 03:23:02.0290 (UTC) FILETIME=[D8D66F20:01CC3AC2] X-detected-operating-system: by eggs.gnu.org: Windows 2000 SP4, XP SP1+ X-Received-From: 66.220.23.115 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:141569 Archived-At: hi, i'm using the latest no gnus and gnu emacs 24 under windows, with gnutls enabled. the following changes allows me to send mail as usual, it turns out `network-stream-get-response' will wait for the ":end-of-command" infinitly, when searching for "^[0-9]+ .*\r\n". should there be a timeout check? this change just works for me, i'm no expert of gnus/smtpmail protocol, so please verify this, thanks. binjo diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index b168506..a92b54f 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -622,14 +622,14 @@ The list is in preference order.") "smtpmail" process-buffer host port :type smtpmail-stream-type :return-list t - :capability-command (format "EHLO %s\r\n" (smtpmail-fqdn)) - :end-of-command "^[0-9]+ .*\r\n" + :capability-command (format "EHLO %s\n" (smtpmail-fqdn)) + :end-of-command "^[0-9]+ .*\n" :success "^2.*\n" :always-query-capabilities t :starttls-function (lambda (capabilities) (and (string-match "-STARTTLS" capabilities) - "STARTTLS\r\n")) + "STARTTLS\n")) :client-certificate t :use-starttls-if-possible t)) @@ -664,7 +664,7 @@ The list is in preference order.") "" (split-string (plist-get (cdr result) :capabilities) - "\r\n"))) + "\n"))) (let ((name (with-case-table ascii-case-table (mapcar (lambda (s) (intern (downcase s))) @@ -812,7 +812,7 @@ The list is in preference order.") (catch 'done (while response-continue (goto-char smtpmail-read-point) - (while (not (search-forward "\r\n" nil t)) + (while (not (search-forward "\n" nil t)) (unless (memq (process-status process) '(open run)) (throw 'done nil)) (accept-process-output process)