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-throw 
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(("address@hidden") #<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-throw 
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(("address@hidden") #<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-address-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 tembuf ... 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)