bug in smtp-mail-send-it?

bug in smtp-mail-send-it?

[Patrick Drechsler]

Hi,

after todays cvs update I can't seem to send mails anymore :-(

I used a minimal ~/.gnus to find the error but I couldn't track
it down:

--8<------------------------schnipp------------------------->8---
(setq user-mail-address "patrick.drechsler@gmx.net")
(setq user-full-name "Patrick Drechsler")

(setq gnus-posting-styles
    '((".*"
       (name "Patrick Drechsler")
       (address "patrick.drechsler@gmx.net"))))

(setq gnus-select-method '(nntp "news.cis.dfn.de"))
(setq gnus-secondary-select-methods
      '((nnml "")
	(nntp "news.gnus.org")))

(setq smtpmail-default-smtp-server "mail.gmx.net")
(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtp-debug-info t
      smtp-debug-verb t)
--8<------------------------schnapp------------------------->8---

Here's the backtrace:

,----
| Debugger entered--Lisp error: (error "Sending failed; SMTP protocol error")
|   signal(error ("Sending failed; SMTP protocol error"))
|   error("Sending failed; SMTP protocol error")
|   smtpmail-send-it()
|   gnus-agent-send-mail()
|   funcall(gnus-agent-send-mail)
|   (let (default-enable-multibyte-characters) (set-buffer-multibyte nil) (message "Sending via mail...") (funcall (or message-send-mail-real-function message-send-mail-function)))
|   (unwind-protect (let (default-enable-multibyte-characters) (set-buffer-multibyte nil) (message "Sending via mail...") (funcall ...)) (set-buffer buffer) (set-buffer-multibyte multibyte))
|   (let ((multibyte enable-multibyte-characters) (buffer ...)) (unwind-protect (let ... ... ... ...) (set-buffer buffer) (set-buffer-multibyte multibyte)))
|   (if mm-emacs-mule (let (... ...) (unwind-protect ... ... ...)) (let (default-enable-multibyte-characters) (message "Sending via mail...") (funcall ...)))
|   (mm-with-unibyte-current-buffer (message "Sending via mail...") (funcall (or message-send-mail-real-function message-send-mail-function)))
|   (if (or (not message-send-mail-partially-limit) (< ... message-send-mail-partially-limit) (not ...)) (mm-with-unibyte-current-buffer (message "Sending via mail...") (funcall ...)) (message-send-mail-partially))
|   (save-excursion (set-buffer tembuf) (erase-buffer) (insert (with-current-buffer mailbuf ...)) (message-encode-message-body) (save-restriction (message-narrow-to-headers) (when ... ...) (message-remove-header message-ignored-mail-headers t) (let ... ...)) (goto-char (point-max)) (or (= ... 10) (insert 10)) (message-cleanup-headers) (when (save-restriction ... ...) (message-insert-courtesy-copy)) (if (or ... ... ...) (mm-with-unibyte-current-buffer ... ...) (message-send-mail-partially)))
|   (unwind-protect (save-excursion (set-buffer tembuf) (erase-buffer) (insert ...) (message-encode-message-body) (save-restriction ... ... ... ...) (goto-char ...) (or ... ...) (message-cleanup-headers) (when ... ...) (if ... ... ...)) (kill-buffer tembuf))
|   (let* ((tembuf ...) (case-fold-search nil) (news ...) (mailbuf ...) (message-this-is-mail t) (message-posting-charset ...) (headers message-required-mail-headers)) (save-restriction (message-narrow-to-headers) (if ... ... ...) (let ... ...) (run-hooks ...)) (unwind-protect (save-excursion ... ... ... ... ... ... ... ... ... ...) (kill-buffer tembuf)) (set-buffer mailbuf) (push (quote mail) message-sent-message-via))
|   message-send-mail(nil)
|   message-send-via-mail(nil)
|   funcall(message-send-via-mail nil)
|   (setq success (funcall (caddr elem) arg))
|   (and (or (not ...) (message-fetch-field "supersedes") (if ... ... ...)) (setq success (funcall ... arg)))
|   (if (and (or ... ... ...) (setq success ...)) (progn (setq sent t)))
|   (when (and (or ... ... ...) (setq success ...)) (setq sent t))
|   (progn (when (and ... ...) (setq sent t)))
|   (if (funcall (cadr elem)) (progn (when ... ...)))
|   (when (funcall (cadr elem)) (when (and ... ...) (setq sent t)))
|   (while (and success (setq elem ...)) (when (funcall ...) (when ... ...)))
|   (let ((alist message-send-method-alist) (success t) elem sent dont-barf-on-no-method (message-options message-options)) (message-options-set-recipient) (while (and success ...) (when ... ...)) (unless (or sent ... ...) (error "No methods specified to send by")) (when (or dont-barf-on-no-method ...) (message-do-fcc) (save-excursion ...) (message "Sending...done") (set-buffer-modified-p nil) (delete-auto-save-file-if-necessary t) (message-disassociate-draft) (message-do-send-housekeeping) (message-do-actions message-send-actions) t))
|   message-send(nil)
|   (and (message-send arg) (buffer-name buf))
|   (if (and (message-send arg) (buffer-name buf)) (progn (if message-kill-buffer-on-exit ... ... ...) (message-do-actions actions) t))
|   (when (and (message-send arg) (buffer-name buf)) (if message-kill-buffer-on-exit (kill-buffer buf) (bury-buffer buf) (when ... ...)) (message-do-actions actions) t)
|   (let ((buf ...) (actions message-exit-actions)) (when (and ... ...) (if message-kill-buffer-on-exit ... ... ...) (message-do-actions actions) t))
|   message-send-and-exit(nil)
|   call-interactively(message-send-and-exit)
`----

Any ideas?

Patrick
-- 
When I got my first television set, I stopped caring
so much about having close relationships.  
                  --Andy Warhol

Re: bug in smtp-mail-send-it?

[Kai Grossjohann]

What's the *trace foo* buffer say?

The variables smtp-debug-info and smtp-debug-verb are called
smtpmail-debug-info and smtpmail-debug-verb, I think.

Kai

Re: bug in smtp-mail-send-it?

[Patrick Drechsler]

Kai Grossjohann wrote on 03 Feb 2004 17:33:11 MET:

> What's the *trace foo* buffer say?

Not sure if this is what you mean:

Debug on Error enabled
Sending...
Sending via mail...
220 {mp012} GMX Mailservices ESMTP
250-{mp012} GMX Mailservices
250-8BITMIME
250-ENHANCEDSTATUSCODES
250-AUTH=LOGIN CRAM-MD5 PLAIN
250-AUTH CRAM-MD5 LOGIN PLAIN
250 STARTTLS
550 5.7.0 {mp012} Need to authenticate via POP3 first
221 2.0.0 {mp012} GMX Mailservices
Entering debugger...

> The variables smtp-debug-info and smtp-debug-verb are called
> smtpmail-debug-info and smtpmail-debug-verb, I think.

Thanks for pointing that out.

Any further ideas?

Patrick

-- 
The only difference between the saint and the sinner is that every saint
has a past and every sinner has a future.
		-- Oscar Wilde

Re: bug in smtp-mail-send-it?

[Patrick Drechsler]

Hi,

JFTR: must have been a problem with GMX. Everything is back to
normal...

Cheers

Patrick
-- 
If your operating system goes down more often
than your girlfriend, then either you need to get
a Catholic girl, or you need to stop running NT.