Re: /srv/bzr/emacs/trunk r105518: Introduce a new variable to allow controlling the SMTP user name

Re: /srv/bzr/emacs/trunk r105518: Introduce a new variable to allow controlling the SMTP user name

[Leo]

On 2011-08-21 12:11 +0800, Lars Magne Ingebrigtsen wrote:
> ------------------------------------------------------------
> revno: 105518
> committer: Lars Magne Ingebrigtsen <larsi@gnus.org>
> branch nick: trunk
> timestamp: Sun 2011-08-21 06:11:59 +0200
> message:
>   Introduce a new variable to allow controlling the SMTP user name
>   
>   * mail/smtpmail.el (smtpmail-smtp-user): New variable.
>   (smtpmail-try-auth-methods): Use it.

Set smtpmail-smtp-user to anything but do not provide the corresponding
smtp entry in .authinfo.gpg. Now try sending email in message mode to
get something like the following backtrace:

Debugger entered--Lisp error: (wrong-type-argument characterp lambda)
  concat("." "sdl.web" "." (lambda (&rest --cl-rest--) (apply #[... "\bJ\203.

Re: /srv/bzr/emacs/trunk r105518: Introduce a new variable to allow controlling the SMTP user name

[Leo]

The remaining text:

Debugger entered--Lisp error: (wrong-type-argument characterp lambda)
  concat("." "sdl.web" "." (lambda (&rest --cl-rest--) (apply #[... "J\203.	.J	J!L\210	J\207" [G11804 G11805] 3] (quote --token-decoder--) (quote --lexv--) --cl-rest--)))
  (base64-encode-string (concat "." user "." password) t)
  (concat "AUTH PLAIN " (base64-encode-string (concat "." user "." password) t))
  (smtpmail-command-or-throw process (concat "AUTH PLAIN " (base64-encode-string ... t)) 235)
  (cond ((or ... ... ...) mech) ((eq mech ...) (setq ret ...) (when ... ...)) ((eq mech ...) (smtpmail-command-or-throw process "AUTH LOGIN") (smtpmail-command-or-throw process ...) (smtpmail-command-or-throw process ...) (when save-function ...)) ((eq mech ...) (smtpmail-command-or-throw process ... 235) (when save-function ...)) (t (error "Mechanism %s not implemented" mech)))
  (let* ((mechs ...) (mech ...) (auth-source-creation-prompts ...) (auth-info ...) (user ...) (password ...) (save-function ...) ret) (when (and user ...) (setq auth-info ... password ...)) (when (functionp password) (setq password ...)) (cond (... mech) (... ... ...) (... ... ... ... ...) (... ... ...) (t ...)))
  smtpmail-try-auth-methods(#<process smtpmail> (enhancedstatuscodes (auth login plain xoauth) 8bitmime (size \35882577)) "smtp.gmail.com" 587 t)
  (setq auth-mechanisms (smtpmail-try-auth-methods process supported-extensions host port ask-for-password))
  (save-current-buffer (set-buffer process-buffer) (set-buffer-process-coding-system (quote raw-text-unix) (quote raw-text-unix)) (make-local-variable (quote smtpmail-read-point)) (setq smtpmail-read-point (point-min)) (let* (... ...) (if ... ... ...)) (setq auth-mechanisms (smtpmail-try-auth-methods process supported-extensions host port ask-for-password)) (when (or ... ...) (smtpmail-command-or-throw process ...)) (when (and smtpmail-debug-verb ...) (smtpmail-command-or-throw process ...)) (when (member ... supported-extensions) (smtpmail-command-or-throw process ...)) (let (... ...) (smtpmail-send-command process ...) (cond ... ... ...)) (let (...) (while ... ... ... ...)) (smtpmail-command-or-throw process "DATA") (smtpmail-send-data process smtpmail-text-buffer) (smtpmail-command-or-t
 hrow process ".") nil)
  (with-current-buffer process-buffer (set-buffer-process-coding-system (quote raw-text-unix) (quote raw-text-unix)) (make-local-variable (quote smtpmail-read-point)) (setq smtpmail-read-point (point-min)) (let* (... ...) (if ... ... ...)) (setq auth-mechanisms (smtpmail-try-auth-methods process supported-extensions host port ask-for-password)) (when (or ... ...) (smtpmail-command-or-throw process ...)) (when (and smtpmail-debug-verb ...) (smtpmail-command-or-throw process ...)) (when (member ... supported-extensions) (smtpmail-command-or-throw process ...)) (let (... ...) (smtpmail-send-command process ...) (cond ... ... ...)) (let (...) (while ... ... ... ...)) (smtpmail-command-or-throw process "DATA") (smtpmail-send-data process smtpmail-text-buffer) (smtpmail-command-or-throw process 
 ".") nil)
  (catch (quote done) (setq process-buffer (get-buffer-create ...)) (with-current-buffer process-buffer (setq buffer-undo-list t) (erase-buffer)) (setq result (open-network-stream "smtpmail" process-buffer host port :type smtpmail-stream-type :return-list t :capability-command ... :end-of-command "^[0-9]+ .*.\n" :success "^2.*\n" :always-query-capabilities t :starttls-function ... :client-certificate t :use-starttls-if-possible t)) (unless (setq process ...) (throw ... ...)) (set-process-filter process (quote smtpmail-process-filter)) (let* (... ...) (unless code ...) (when ... ...)) (with-current-buffer process-buffer (set-buffer-process-coding-system ... ...) (make-local-variable ...) (setq smtpmail-read-point ...) (let* ... ...) (setq auth-mechanisms ...) (when ... ...) (when ... ...) (
 when ... ...) (let ... ... ...) (let ... ...) (smtpmail-command-or-throw process "DATA") (smtpmail-send-data process smtpmail-text-buffer) (smtpmail-command-or-throw process ".") nil))
  (unwind-protect (catch (quote done) (setq process-buffer ...) (with-current-buffer process-buffer ... ...) (setq result ...) (unless ... ...) (set-process-filter process ...) (let* ... ... ...) (with-current-buffer process-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... nil)) (when (and process ...) (with-current-buffer ... ... ... ... ...)))
  (let ((process nil) (host ...) (port smtpmail-smtp-service) (envelope-from ...) (coding-system-for-read ...) (coding-system-for-write ...) response-code process-buffer result auth-mechanisms (supported-extensions ...)) (unwind-protect (catch ... ... ... ... ... ... ... ...) (when ... ...)))
  smtpmail-via-smtp(("sdl.web@gmail.com") #<buffer  smtpmail temp> t)
  (throw (quote done) (smtpmail-via-smtp recipient smtpmail-text-buffer t))
  (cond ((smtpmail-ok-p ...)) ((and auth-mechanisms ... ...) (smtpmail-send-command process "QUIT") (smtpmail-read-response process) (delete-process process) (setq process nil) (throw ... ...)) (t (throw ... ...)))
  (let ((size-part ...) (body-part ...)) (smtpmail-send-command process (format "MAIL FROM:<%s>%s%s" envelope-from size-part body-part)) (cond (...) (... ... ... ... ... ...) (t ...)))
  (save-current-buffer (set-buffer process-buffer) (set-buffer-process-coding-system (quote raw-text-unix) (quote raw-text-unix)) (make-local-variable (quote smtpmail-read-point)) (setq smtpmail-read-point (point-min)) (let* (... ...) (if ... ... ...)) (setq auth-mechanisms (smtpmail-try-auth-methods process supported-extensions host port ask-for-password)) (when (or ... ...) (smtpmail-command-or-throw process ...)) (when (and smtpmail-debug-verb ...) (smtpmail-command-or-throw process ...)) (when (member ... supported-extensions) (smtpmail-command-or-throw process ...)) (let (... ...) (smtpmail-send-command process ...) (cond ... ... ...)) (let (...) (while ... ... ... ...)) (smtpmail-command-or-throw process "DATA") (smtpmail-send-data process smtpmail-text-buffer) (smtpmail-command-or-t
 hrow process ".") nil)
  (with-current-buffer process-buffer (set-buffer-process-coding-system (quote raw-text-unix) (quote raw-text-unix)) (make-local-variable (quote smtpmail-read-point)) (setq smtpmail-read-point (point-min)) (let* (... ...) (if ... ... ...)) (setq auth-mechanisms (smtpmail-try-auth-methods process supported-extensions host port ask-for-password)) (when (or ... ...) (smtpmail-command-or-throw process ...)) (when (and smtpmail-debug-verb ...) (smtpmail-command-or-throw process ...)) (when (member ... supported-extensions) (smtpmail-command-or-throw process ...)) (let (... ...) (smtpmail-send-command process ...) (cond ... ... ...)) (let (...) (while ... ... ... ...)) (smtpmail-command-or-throw process "DATA") (smtpmail-send-data process smtpmail-text-buffer) (smtpmail-command-or-throw process 
 ".") nil)
  (catch (quote done) (setq process-buffer (get-buffer-create ...)) (with-current-buffer process-buffer (setq buffer-undo-list t) (erase-buffer)) (setq result (open-network-stream "smtpmail" process-buffer host port :type smtpmail-stream-type :return-list t :capability-command ... :end-of-command "^[0-9]+ .*.\n" :success "^2.*\n" :always-query-capabilities t :starttls-function ... :client-certificate t :use-starttls-if-possible t)) (unless (setq process ...) (throw ... ...)) (set-process-filter process (quote smtpmail-process-filter)) (let* (... ...) (unless code ...) (when ... ...)) (with-current-buffer process-buffer (set-buffer-process-coding-system ... ...) (make-local-variable ...) (setq smtpmail-read-point ...) (let* ... ...) (setq auth-mechanisms ...) (when ... ...) (when ... ...) (
 when ... ...) (let ... ... ...) (let ... ...) (smtpmail-command-or-throw process "DATA") (smtpmail-send-data process smtpmail-text-buffer) (smtpmail-command-or-throw process ".") nil))
  (unwind-protect (catch (quote done) (setq process-buffer ...) (with-current-buffer process-buffer ... ...) (setq result ...) (unless ... ...) (set-process-filter process ...) (let* ... ... ...) (with-current-buffer process-buffer ... ... ... ... ... ... ... ... ... ... ... ... ... nil)) (when (and process ...) (with-current-buffer ... ... ... ... ...)))
  (let ((process nil) (host ...) (port smtpmail-smtp-service) (envelope-from ...) (coding-system-for-read ...) (coding-system-for-write ...) response-code process-buffer result auth-mechanisms (supported-extensions ...)) (unwind-protect (catch ... ... ... ... ... ... ... ...) (when ... ...)))
  smtpmail-via-smtp(("sdl.web@gmail.com") #<buffer  smtpmail temp>)
  (setq result (smtpmail-via-smtp smtpmail-recipient-address-list tembuf))
  (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 ...) (error "Sending failed: %s" result)) (error "Sending failed; no recipients"))
  (if (not smtpmail-queue-mail) (if (not ...) (when ... ...) (error "Sending failed; no recipients")) (let* (... ... ... ... ... ...) (unless ... ...) (with-current-buffer buffer-data ... ... ... ... ... ... ... ... ... ... ...) (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 (= ... 10) (insert 10)) (mail-sendmail-undelimit-header) (setq delimline (point-marker)) (if mail-aliases (expand-mail-aliases ... delimline)) (goto-char (point-min)) (while (and ... ...) (replace-match "\n")) (let (...) (goto-char ...) (if ... ... ...) (goto-char ...) (if ... ...) (goto-char ...) (unless ... ...) (goto-char ...) (unless ... ...) (let ... ... ...) (goto-char ...) (if ... ...) (goto-char ...) (if ... ...) (if mail-interactive ...)) (mail-encode-header (point-min) delimline) (setq smtpmail-address-buffer (generate-new-buffer "*smtp-mail*")) (setq smtpmail-recipient-address-list (smtpmail-deduce-a
 ddress-list tembuf ... delimline)) (kill-buffer smtpmail-address-buffer) (smtpmail-do-bcc delimline) (if (not smtpmail-queue-mail) (if ... ... ...) (let* ... ... ... ... ... ...)))
  (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 (= ... 10) (insert 10)) (mail-sendmail-undelimit-header) (setq delimline (point-marker)) (if mail-aliases (expand-mail-aliases ... delimline)) (goto-char (point-min)) (while (and ... ...) (replace-match "\n")) (let (...) (goto-char ...) (if ... ... ...) (goto-char ...) (if ... ...) (goto-char ...) (unless ... ...) (goto-char ...) (unless ... ...) (let ... ... ...) (goto-char ...) (if ... ...) (goto-char ...) (if ... ...) (if mail-interactive ...)) (mail-encode-header (point-min) delimline) (setq smtpmail-address-buffer (generate-new-buffer "*smtp-mail*")) (setq smtpmail-recipient-address-list (smtpmail-deduce-address-list t
 embuf ... delimline)) (kill-buffer smtpmail-address-buffer) (smtpmail-do-bcc delimline) (if (not smtpmail-queue-mail) (if ... ... ...) (let* ... ... ... ... ... ...)))
  (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 ...) (or ... ...) (mail-sendmail-undelimit-header) (setq delimline ...) (if mail-aliases ...) (goto-char ...) (while ... ...) (let ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (mail-encode-header ... delimline) (setq smtpmail-address-buffer ...) (setq smtpmail-recipient-address-list ...) (kill-buffer smtpmail-address-buffer) (smtpmail-do-bcc delimline) (if ... ... ...)) (kill-buffer tembuf) (if (bufferp errbuf) (kill-buffer errbuf)))
  (let ((errbuf ...) (tembuf ...) (case-fold-search nil) delimline result (mailbuf ...) (smtpmail-mail-address ...) (smtpmail-code-conv-from ...)) (unwind-protect (with-current-buffer tembuf ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (kill-buffer tembuf) (if ... ...)))
  smtpmail-send-it()
  message-send-mail(nil)
  message-send-via-mail(nil)
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit nil nil)

Re: /srv/bzr/emacs/trunk r105518: Introduce a new variable to allow controlling the SMTP user name

[Lars Magne Ingebrigtsen]

Leo <sdl.web@gmail.com> writes:

> Set smtpmail-smtp-user to anything but do not provide the corresponding
> smtp entry in .authinfo.gpg. Now try sending email in message mode to
> get something like the following backtrace:
>
> Debugger entered--Lisp error: (wrong-type-argument characterp lambda)
>   concat("." "sdl.web" "." (lambda (&rest --cl-rest--) (apply #[... "\bJ\203.

This should now be fixed.

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/