unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* issue of smtpmail-via-smtp
@ 2011-07-05  3:29 Binjo
  2011-07-05 11:29 ` Christoph Scholtes
  0 siblings, 1 reply; 6+ messages in thread
From: Binjo @ 2011-07-05  3:29 UTC (permalink / raw)
  To: emacs-devel

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)



^ permalink raw reply related	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2011-07-06  1:28 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-07-05  3:29 issue of smtpmail-via-smtp Binjo
2011-07-05 11:29 ` Christoph Scholtes
2011-07-05 13:40   ` Lars Magne Ingebrigtsen
2011-07-06  0:55     ` Binjo
2011-07-06  1:10       ` Christoph Scholtes
2011-07-06  1:28         ` Binjo

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).