From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Benjamin L. Russell" Newsgroups: gmane.emacs.bugs Subject: bug#8689: 23.3; Gnus v5.13 freezes upon invocation of default STARTTLS in SMTP in GNU Emacs 23.3.1 (i386-mingw-nt5.1.2600) on Windows XP Professional, Service Pack 3 Date: Thu, 30 Jun 2011 13:09:50 -0700 (PDT) Message-ID: <1309464590.3827.YahooMailClassic@web32002.mail.mud.yahoo.com> References: <82liy4erml.fsf@Yahoo.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1309466984 3813 80.91.229.12 (30 Jun 2011 20:49:44 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 30 Jun 2011 20:49:44 +0000 (UTC) Cc: 8689@debbugs.gnu.org To: Lars Magne Ingebrigtsen Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Jun 30 22:49:39 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@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 1QcOB8-0007rc-S4 for geb-bug-gnu-emacs@m.gmane.org; Thu, 30 Jun 2011 22:49:39 +0200 Original-Received: from localhost ([::1]:53403 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QcOB7-00043L-Dq for geb-bug-gnu-emacs@m.gmane.org; Thu, 30 Jun 2011 16:49:37 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:48121) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QcNYw-0002dX-Un for bug-gnu-emacs@gnu.org; Thu, 30 Jun 2011 16:10:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QcNYs-0002Ck-8P for bug-gnu-emacs@gnu.org; Thu, 30 Jun 2011 16:10:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:43206) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QcNYr-0002Bn-Ox for bug-gnu-emacs@gnu.org; Thu, 30 Jun 2011 16:10:05 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1QcNYp-0000eO-Mw; Thu, 30 Jun 2011 16:10:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: "Benjamin L. Russell" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org, bugs@gnus.org Resent-Date: Thu, 30 Jun 2011 20:10:03 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 8689 X-GNU-PR-Package: emacs,gnus X-GNU-PR-Keywords: Original-Received: via spool by 8689-submit@debbugs.gnu.org id=B8689.13094646012488 (code B ref 8689); Thu, 30 Jun 2011 20:10:03 +0000 Original-Received: (at 8689) by debbugs.gnu.org; 30 Jun 2011 20:10:01 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1QcNYl-0000e5-U7 for submit@debbugs.gnu.org; Thu, 30 Jun 2011 16:10:00 -0400 Original-Received: from nm18-vm3.bullet.mail.ne1.yahoo.com ([98.138.91.148]) by debbugs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1QcNYj-0000dt-Ck for 8689@debbugs.gnu.org; Thu, 30 Jun 2011 16:09:58 -0400 Original-Received: from [98.138.90.48] by nm18.bullet.mail.ne1.yahoo.com with NNFMP; 30 Jun 2011 20:09:51 -0000 Original-Received: from [98.138.89.193] by tm1.bullet.mail.ne1.yahoo.com with NNFMP; 30 Jun 2011 20:09:51 -0000 Original-Received: from [127.0.0.1] by omp1051.mail.ne1.yahoo.com with NNFMP; 30 Jun 2011 20:09:51 -0000 X-Yahoo-Newman-Property: ymail-3 X-Yahoo-Newman-Id: 334918.57997.bm@omp1051.mail.ne1.yahoo.com Original-Received: (qmail 45007 invoked by uid 60001); 30 Jun 2011 20:09:51 -0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s1024; t=1309464590; bh=aYgo1O+8vHeeQxnflGqoOuaCj0xErymMvoSiNyDXmsM=; h=X-YMail-OSG:Received:X-Mailer:Message-ID:Date:From:Subject:To:Cc:In-Reply-To:MIME-Version:Content-Type; b=zjY6IWKj3i1+qpGXjCBZdF9yBFOLoGS5EIdHZKK1LRtFeny35lFRrNFUnC+zMMLuczCgXUINDF0/OnDD7FScIzOxsEMXjHqgXmhWTWTTS+e4fYwq20Qob0OfaaTo+uz5Ln86mRSUsLycRaz8f0beFyCSzzroH/XayTYSVBQ0b74= DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com; h=X-YMail-OSG:Received:X-Mailer:Message-ID:Date:From:Subject:To:Cc:In-Reply-To:MIME-Version:Content-Type; b=1JivA5JA2tJk8EsuaKU1P44O+N9Wd6Ib2skco+9UXKjlhX/G+Bhcf5aSa9BZxS91+6R8ucwDzYcytj+l19b3sfnzQgccsxRo+TZjhmw1NARnjNJCKjAPCs+Z+Lkwsftc97LW+OPzx2OHAzg/Qm1w8QVV/u6oyHMUfpKFgKYgElM=; X-YMail-OSG: WsWZW3MVM1ncuQ9aQcGcboSsVcIlPifjNmmPGy6pKro55Og eTHr53VXPIdSVIt9WNGXSaR9e1PEg4VJFS9N57k.7xmlIwJkjJtptvYTzpJ8 8BtK.0rsRy_LJdH4H0ujCc__ghG9bdLI.vKOIbP4JUHbn2tJudJ6EG2MSfgY yY3yDl0dW9eOc2UtC1bfYP6P5vX5mMvxq9z7ILsgepoTUEeLOoyxCV5HlCFp jyL1PbEUdLE2TK8veGdOfQ84DRhj02u9ejtTlkeMIjo54uv35u0NVDMG.GB8 AUW5Dxk0VhditG7mP3zWpX05HFZjB7ZkpX_DewqQwyG1n1D39jBLf7abJRCy p1SKOvtBLL2PshMyPYMdbgX8AaCEreyHKDR_AhtQWgnGQAG7TQzB75HotgwS tl1cQ_vKMXvoUh6K6zSDbITDl1C4mctiv62G5JGdNG9WyJDR2nnKDe0tQ15o 4eGzAQoI66NGiiwyBni6FNxz_PMlBYvZYZ2YZsS_eEVkzX6wDu2UYJLweoiE pjoUgbM1eX834Als51I7MEObixOKykggfaqGydzHIejv.7f2_9z6oSTKssXt o2EqZf4wLQusaxAjjKBnr Original-Received: from [114.164.163.107] by web32002.mail.mud.yahoo.com via HTTP; Thu, 30 Jun 2011 13:09:50 PDT X-Mailer: YahooMailClassic/14.0.3 YahooMailWebService/0.8.112.307740 In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Thu, 30 Jun 2011 16:10:03 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:47655 Archived-At: On Fri, 7/1/11, Lars Magne Ingebrigtsen wrote: > On Fri, 7/1/11, Lars Magne Ingebrigtsen wrote: > > Could you run > > > > diff --unified > > > > instead? That will produce a more readable output. > ----- output begins immediately after this line ----- > Microsoft Windows XP [Version 5.1.2600] > (C) Copyright 1985-2001 Microsoft Corp. > C:\Documents and Settings\kensyuu>diff --unified C:\emacs\emacs-23.3\lisp\gnus\s > tarttls.el "C:\Documents and Settings\kensyuu\My Documents\GNU Emacs\Deprecated > Versions\From emacs Top-level Folder\emacs-23.2\lisp\gnus\starttls.el" > cygwin warning: > MS-DOS style path detected: C:\emacs\emacs-23.3\lisp\gnus\starttls.el > Preferred POSIX equivalent is: /cygdrive/c/emacs/emacs-23.3/lisp/gnus/starttls > .el > CYGWIN environment variable option "nodosfilewarning" turns off this warning. > Consult the user's guide for more details about POSIX paths: > http://cygwin.com/cygwin-ug-net/using.html#using-pathnames > --- C:\emacs\emacs-23.3\lisp\gnus\starttls.el 2011-05-17 19:53:57.296875000 +0 > 900 > +++ C:\Documents and Settings\kensyuu\My Documents\GNU Emacs\Deprecated Versions > \From emacs Top-level Folder\emacs-23.2\lisp\gnus\starttls.el 2011-05-14 12:00 > :08.875000000 +0900 > @@ -1,7 +1,7 @@ > ;;; starttls.el --- STARTTLS functions > ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, > -;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. > +;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. > ;; Author: Daiki Ueno > ;; Author: Simon Josefsson > @@ -10,18 +10,20 @@ > ;; This file is part of GNU Emacs. > -;; GNU Emacs is free software: you can redistribute it and/or modify > +;; GNU Emacs is free software; you can redistribute it and/or modify > ;; it under the terms of the GNU General Public License as published by > -;; the Free Software Foundation, either version 3 of the License, or > -;; (at your option) any later version. > +;; the Free Software Foundation; either version 3, or (at your option) > +;; any later version. > ;; GNU Emacs is distributed in the hope that it will be useful, > ;; but WITHOUT ANY WARRANTY; without even the implied warranty of > -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > ;; GNU General Public License for more details. > ;; You should have received a copy of the GNU General Public License > -;; along with GNU Emacs. If not, see . > +;; along with GNU Emacs; see the file COPYING. If not, write to the > +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, > +;; Boston, MA 02110-1301, USA. > ;;; Commentary: > @@ -196,7 +198,6 @@ > :type 'regexp > :group 'starttls) > -;; Added based on a suggestion by Uday Reddy posted on 2010-04-26 at "Question > #108267 : Questions : VM" (see https://answers.launchpad.net/vm/+question/108267 > ) by Benjamin L. Russell on Tuesday, May 17, 2011, at 19:53. > (defcustom starttls-kill-program "c:\\cygwin\\bin\\kill" > "External kill command to send SIGALRM to starttls." > :group 'starttls) > @@ -209,15 +210,13 @@ > (let (buffer info old-max done-ok done-bad) > (if (null (setq buffer (process-buffer process))) > ;; XXX How to remove/extract the TLS negotiation junk? > - ;; Modified based on a suggestion by Uday Reddy posted on 2010-04-26 at > "Question #108267 : Questions : VM" (see https://answers.launchpad.net/vm/+quest > ion/108267) by Benjamin L. Russell on Tuesday, May 17, 2011, at 19:53. > -; (signal-process (process-id process) 'SIGALRM) > + ; (signal-process (process-id process) 'SIGALRM) > (call-process starttls-kill-program nil nil nil > "-ALRM" (format "%d" (process-id process))) > (with-current-buffer buffer > (save-excursion > (setq old-max (goto-char (point-max))) > - ;; Modified based on a suggestion by Uday Reddy posted on 2010-04-26 a > t "Question #108267 : Questions : VM" (see https://answers.launchpad.net/vm/+que > stion/108267) by Benjamin L. Russell on Tuesday, May 17, 2011, at 19:53. > -; (signal-process (process-id process) 'SIGALRM) > + ; (signal-process (process-id process) 'SIGALRM) > (call-process starttls-kill-program nil nil nil > "-ALRM" (format "%d" (process-id process))) > (while (and (processp process) > @@ -242,11 +241,9 @@ > (defun starttls-negotiate (process) > (if starttls-use-gnutls > (starttls-negotiate-gnutls process) > - ;; Modified based on a suggestion by Uday Reddy posted on 2010-04-26 at "Qu > estion #108267 : Questions : VM" (see https://answers.launchpad.net/vm/+question > /108267) by Benjamin L. Russell on Tuesday, May 17, 2011, at 19:53. > -; (signal-process (process-id process) 'SIGALRM) > - (call-process starttls-kill-program nil nil nil > - "-ALRM" (format "%d" (process-id process))) > - )) > + ; (signal-process (process-id process) 'SIGALRM))) > + (call-process starttls-kill-program nil nil nil > + "-ALRM" (format "%d" (process-id process))))) > (eval-and-compile > (if (fboundp 'set-process-query-on-exit-flag) > @@ -256,7 +253,7 @@ > 'process-kill-without-query))) > (defun starttls-open-stream-gnutls (name buffer host port) > - (message "Opening STARTTLS connection to `%s:%s'..." host port) > + (message "Opening STARTTLS connection to `%s'..." host) > (let* (done > (old-max (with-current-buffer buffer (point-max))) > (process-connection-type starttls-process-connection-type) > @@ -281,8 +278,8 @@ > (delete-region old-max done)) > (delete-process process) > (setq process nil)) > - (message "Opening STARTTLS connection to `%s:%s'...%s" > - host port (if done "done" "failed")) > + (message "Opening STARTTLS connection to `%s'...%s" > + host (if done "done" "failed")) > process)) > (defun starttls-open-stream (name buffer host port) > @@ -302,7 +299,6 @@ > GNUTLS requires a port number." > (if starttls-use-gnutls > (starttls-open-stream-gnutls name buffer host port) > - (message "Opening STARTTLS connection to `%s:%s'" host (format "%s" port)) > (let* ((process-connection-type starttls-process-connection-type) > (process (apply #'start-process > name buffer starttls-program > @@ -311,20 +307,7 @@ > (starttls-set-process-query-on-exit-flag process nil) > process))) > -(defun starttls-any-program-available () > - (let ((program (if starttls-use-gnutls > - starttls-gnutls-program > - starttls-program))) > - (condition-case () > - (progn > - (call-process program) > - program) > - (error (progn > - (message "No STARTTLS program was available (tried '%s')" > - program) > - nil))))) > - > (provide 'starttls) > -;; arch-tag: 648b3bd8-63bd-47f5-904c-7c819aea2297 > -;;; starttls.el ends here > +;;; arch-tag: 648b3bd8-63bd-47f5-904c-7c819aea2297 > +;;; starttls.el ends here > \ No newline at end of file > ----- output ends immediately before this line ----- > >> diff --unified > > >> > >> instead? That will produce a more readable > output. > > Hm. The only changes I see are in indentation and > (message) calls. Are > you sure the one works and the other one doesn't work? As far as I remember, neither my deprecated version nor the updated version worked perfectly, but the deprecated version hung more often when invoking the STARTTLS protocol. -- Benjamin L. Russell