[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#11037: 24.0.94; gnutls-cli.exe program not found
From: |
Uday S Reddy |
Subject: |
bug#11037: 24.0.94; gnutls-cli.exe program not found |
Date: |
Sat, 17 Mar 2012 20:14:38 +0000 |
The error trace isn't all that helpful, because I think the error message is
getting constructed from somewhere deeper using property lists. In any
case, here it is:
Debugger entered--Lisp error: (error "Sending failed: Emacs does not support
TLS, and no external `gnutls-cli' program was found")
signal(error ("Sending failed: Emacs does not support TLS, and no external
`gnutls-cli' program was found"))
error("Sending failed: %s" "Emacs does not support TLS, and no external
`gnutls-cli' program was found")
(progn (error "Sending failed: %s" result))
(if (setq result (smtpmail-via-smtp smtpmail-recipient-address-list tembuf))
(progn (error "Sending failed: %s" result)))
(when (setq result (smtpmail-via-smtp smtpmail-recipient-address-list
tembuf)) (error "Sending failed: %s" result))
(if (not (null smtpmail-recipient-address-list)) (when (setq result
(smtpmail-via-smtp smtpmail-recipient-address-list tembuf)) (error "Sending
failed: %s" result)) (error "Sending failed; no recipients"))
(if (not smtpmail-queue-mail) (if (not (null
smtpmail-recipient-address-list)) (when (setq result (smtpmail-via-smtp
smtpmail-recipient-address-list tembuf)) (error "Sending failed: %s" result))
(error "Sending failed; no recipients")) (let* ((file-data (expand-file-name
(format "%s_%i" (format-time-string "%Y-%m-%d_%H:%M:%S") (setq
smtpmail-queue-counter (1+ smtpmail-queue-counter))) smtpmail-queue-dir))
(file-data (convert-standard-filename file-data)) (file-elisp (concat file-data
".el")) (buffer-data (create-file-buffer file-data)) (buffer-elisp
(create-file-buffer file-elisp)) (buffer-scratch "*queue-mail*")) (unless
(file-exists-p smtpmail-queue-dir) (make-directory smtpmail-queue-dir t))
(with-current-buffer buffer-data (erase-buffer) (set-buffer-file-coding-system
(coding-system-change-eol-conversion (or smtpmail-code-conv-from (quote
undecided)) (quote unix)) nil t) (insert-buffer-substring tembuf) (write-file
file-data) (set-buffer buffer-elisp) (erase-buffer) (insert (concat "(setq
smtpmail-recipient-address-list '" (prin1-to-string
smtpmail-recipient-address-list) ")\n")) (write-file file-elisp) (set-buffer
(generate-new-buffer buffer-scratch)) (insert (concat file-data "\n"))
(append-to-file (point-min) (point-max) (expand-file-name
smtpmail-queue-index-file smtpmail-queue-dir))) (kill-buffer buffer-scratch)
(kill-buffer buffer-data) (kill-buffer buffer-elisp)))
(save-current-buffer (set-buffer tembuf) (erase-buffer)
(set-buffer-file-coding-system smtpmail-code-conv-from nil t)
(insert-buffer-substring mailbuf) (goto-char (point-max)) (or (=
(preceding-char) 10) (insert 10)) (mail-sendmail-undelimit-header) (setq
delimline (point-marker)) (if mail-aliases (expand-mail-aliases (point-min)
delimline)) (goto-char (point-min)) (while (and (re-search-forward "\n\n\n*"
delimline t) (< (point) delimline)) (replace-match "\n")) (let
((case-fold-search t)) (goto-char (point-min)) (if (re-search-forward
"^Subject:\\([ ]*\n\\)+\\b" delimline t) (replace-match "") (if (and
(re-search-forward "^Subject:\\([ ]*\n\\)+" delimline t) (= (match-end
0) delimline)) (replace-match ""))) (goto-char (point-min)) (if (not
(re-search-forward "^From:" delimline t)) (let* ((login smtpmail-mail-address)
(fullname (user-full-name))) (cond ((eq mail-from-style (quote angles)) (insert
"From: " fullname) (let (... ...) (goto-char fullname-start) (if ... ...))
(insert " <" login ">\n")) ((eq mail-from-style (quote parens)) (insert "From:
" login " (") (let (...) (insert fullname) (let ... ... ... ... ...)) (insert
")\n")) ((null mail-from-style) (insert "From: " login "\n"))))) (goto-char
(point-min)) (unless (re-search-forward "^Message-Id:" delimline t) (insert
"Message-Id: " (message-make-message-id) "\n")) (goto-char (point-min)) (unless
(re-search-forward "^Date:" delimline t) (insert "Date: " (message-make-date)
"\n")) (let (charset) (goto-char (point-min)) (and (eq mail-send-nonascii
(quote mime)) (not (re-search-forward "^MIME-version:" delimline t)) (progn
(skip-chars-forward "
(with-current-buffer tembuf (erase-buffer) (set-buffer-file-coding-system
smtpmail-code-conv-from nil t) (insert-buffer-substring mailbuf) (goto-char
(point-max)) (or (= (preceding-char) 10) (insert 10))
(mail-sendmail-undelimit-header) (setq delimline (point-marker)) (if
mail-aliases (expand-mail-aliases (point-min) delimline)) (goto-char
(point-min)) (while (and (re-search-forward "\n\n\n*" delimline t) (< (point)
delimline)) (replace-match "\n")) (let ((case-fold-search t)) (goto-char
(point-min)) (if (re-search-forward "^Subject:\\([ ]*\n\\)+\\b" delimline
t) (replace-match "") (if (and (re-search-forward "^Subject:\\([
]*\n\\)+" delimline t) (= (match-end 0) delimline)) (replace-match "")))
(goto-char (point-min)) (if (not (re-search-forward "^From:" delimline t))
(let* ((login smtpmail-mail-address) (fullname (user-full-name))) (cond ((eq
mail-from-style (quote angles)) (insert "From: " fullname) (let (... ...)
(goto-char fullname-start) (if ... ...)) (insert " <" login ">\n")) ((eq
mail-from-style (quote parens)) (insert "From: " login " (") (let (...) (insert
fullname) (let ... ... ... ... ...)) (insert ")\n")) ((null mail-from-style)
(insert "From: " login "\n"))))) (goto-char (point-min)) (unless
(re-search-forward "^Message-Id:" delimline t) (insert "Message-Id: "
(message-make-message-id) "\n")) (goto-char (point-min)) (unless
(re-search-forward "^Date:" delimline t) (insert "Date: " (message-make-date)
"\n")) (let (charset) (goto-char (point-min)) (and (eq mail-send-nonascii
(quote mime)) (not (re-search-forward "^MIME-version:" delimline t)) (progn
(skip-chars-forward "
(unwind-protect (with-current-buffer tembuf (erase-buffer)
(set-buffer-file-coding-system smtpmail-code-conv-from nil t)
(insert-buffer-substring mailbuf) (goto-char (point-max)) (or (=
(preceding-char) 10) (insert 10)) (mail-sendmail-undelimit-header) (setq
delimline (point-marker)) (if mail-aliases (expand-mail-aliases (point-min)
delimline)) (goto-char (point-min)) (while (and (re-search-forward "\n\n\n*"
delimline t) (< (point) delimline)) (replace-match "\n")) (let
((case-fold-search t)) (goto-char (point-min)) (if (re-search-forward
"^Subject:\\([ ]*\n\\)+\\b" delimline t) (replace-match "") (if (and
(re-search-forward "^Subject:\\([ ]*\n\\)+" delimline t) (= (match-end
0) delimline)) (replace-match ""))) (goto-char (point-min)) (if (not
(re-search-forward "^From:" delimline t)) (let* ((login smtpmail-mail-address)
(fullname (user-full-name))) (cond ((eq mail-from-style ...) (insert "From: "
fullname) (let ... ... ...) (insert " <" login ">\n")) ((eq mail-from-style
...) (insert "From: " login " (") (let ... ... ...) (insert ")\n")) ((null
mail-from-style) (insert "From: " login "\n"))))) (goto-char (point-min))
(unless (re-search-forward "^Message-Id:" delimline t) (insert "Message-Id: "
(message-make-message-id) "\n")) (goto-char (point-min)) (unless
(re-search-forward "^Date:" delimline t) (insert "Date: " (message-make-date)
"\n")) (let (charset) (goto-char (point-min)) (and (eq mail-send-nonascii
(quote mime)) (not (re-search-forward "^MIME-version:" delimline t)) (progn
(skip-chars-forward "
(let ((errbuf (if mail-interactive (generate-new-buffer " smtpmail errors")
0)) (tembuf (generate-new-buffer " smtpmail temp")) (case-fold-search nil)
delimline result (mailbuf (current-buffer)) (smtpmail-mail-address (or (and
mail-specify-envelope-from (mail-envelope-from)) (smtpmail-user-mail-address)
(let ((from (mail-fetch-field "from"))) (and from (cadr
(mail-extract-address-components from)))))) (smtpmail-code-conv-from (if
enable-multibyte-characters (let ((sendmail-coding-system
smtpmail-code-conv-from)) (select-message-coding-system))))) (unwind-protect
(with-current-buffer tembuf (erase-buffer) (set-buffer-file-coding-system
smtpmail-code-conv-from nil t) (insert-buffer-substring mailbuf) (goto-char
(point-max)) (or (= (preceding-char) 10) (insert 10))
(mail-sendmail-undelimit-header) (setq delimline (point-marker)) (if
mail-aliases (expand-mail-aliases (point-min) delimline)) (goto-char
(point-min)) (while (and (re-search-forward "\n\n\n*" delimline t) (< (point)
delimline)) (replace-match "\n")) (let ((case-fold-search t)) (goto-char
(point-min)) (if (re-search-forward "^Subject:\\([ ]*\n\\)+\\b" delimline
t) (replace-match "") (if (and (re-search-forward "^Subject:\\([
]*\n\\)+" delimline t) (= ... delimline)) (replace-match ""))) (goto-char
(point-min)) (if (not (re-search-forward "^From:" delimline t)) (let* ((login
smtpmail-mail-address) (fullname ...)) (cond (... ... ... ...) (... ... ...
...) (... ...)))) (goto-char (point-min)) (unless (re-search-forward
"^Message-Id:" delimline t) (insert "Message-Id: " (message-make-message-id)
"\n")) (goto-char (point-min)) (unless (re-search-forward "^Date:" delimline t)
(insert "Date: " (message-make-date) "\n")) (let (charset) (goto-char
(point-min)) (and (eq mail-send-nonascii (quote mime)) (not (re-search-forward
"^MIME-version:" delimline t)) (progn (skip-chars-forward "
smtpmail-send-it()
mail-send()
vm-mail-send()
vm-mail-send-and-exit(nil)
call-interactively(vm-mail-send-and-exit nil nil)
You would probably need to reproduce the error to figure out where the
message is coming from. The way to reproduce it is:
- to make sure that Emacs isn't able to use GnuTLS
- set smtpmail-stream-type to 'starttls
- invoke smtpmail on some message asking for starttls (I use smtp.gmail.com
on port 587).
On |Emacs 23.3, this would hang, because starttls.el would try SIGALRM which
Windows doesn't respond to.
But, on Emacs 24.0.94, it is coming back and giving an error message. They
seem to, but the current behaviour was unexpected.
> Why is that needed? Emacs supports linking against GnuTLS now,
> including on Windows (see below). Can you use the built-in GnuTLS
> support instead of starttls?
I probably could. But my interest is first in checking what Emacs is able
to deliver, because we end up having to spend enormous amounts of time in
answering queries from VM users about how to configure various things for
email servers. The users who have been using starttls.el with Emacs23 will
assume that it will continue to work because the NEWS file says:
**** smtpmail now uses encrypted connections (via STARTTLS) by default
if the mail server supports them. This uses either built-in GnuTLS
support, or the starttls.el library. Customize `smtpmail-stream-type'
to change this.
Please feel free to get rid of starttls.el from here. I wouldn't object.
> As you see, your Emacs was built with GnuTLS support, you just need
> the binaries and DLLs to be able to use that. One place you can find
> them is here
>
>
> http://sourceforge.net/projects/ezwinports/files/gnutls-3.0.9-w32-bin.zip/download
Thanks. I will try these binaries.
Cheers,
Uday
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Uday S Reddy, 2012/03/17
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Eli Zaretskii, 2012/03/17
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Lars Magne Ingebrigtsen, 2012/03/22
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Eli Zaretskii, 2012/03/22
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Uday S Reddy, 2012/03/22
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Eli Zaretskii, 2012/03/23
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Uday S Reddy, 2012/03/23
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Eli Zaretskii, 2012/03/23
- bug#11037: 24.0.94; gnutls-cli.exe program not found, Stefan Monnier, 2012/03/23