From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Leo Newsgroups: gmane.emacs.devel Subject: Re: /srv/bzr/emacs/trunk r105518: Introduce a new variable to allow controlling the SMTP user name Date: Sun, 21 Aug 2011 17:41:08 +0800 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1313919701 20496 80.91.229.12 (21 Aug 2011 09:41:41 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 21 Aug 2011 09:41:41 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Aug 21 11:41:36 2011 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Qv4X5-0002No-GQ for ged-emacs-devel@m.gmane.org; Sun, 21 Aug 2011 11:41:31 +0200 Original-Received: from localhost ([::1]:47691 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qv4X4-0003pQ-Pv for ged-emacs-devel@m.gmane.org; Sun, 21 Aug 2011 05:41:30 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:50206) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qv4X2-0003pL-4d for emacs-devel@gnu.org; Sun, 21 Aug 2011 05:41:29 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Qv4Wz-00072p-VE for emacs-devel@gnu.org; Sun, 21 Aug 2011 05:41:28 -0400 Original-Received: from lo.gmane.org ([80.91.229.12]:47830) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qv4Wz-00072e-Fa for emacs-devel@gnu.org; Sun, 21 Aug 2011 05:41:25 -0400 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1Qv4Wy-0002MU-Fp for emacs-devel@gnu.org; Sun, 21 Aug 2011 11:41:24 +0200 Original-Received: from 58.22.113.116 ([58.22.113.116]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 21 Aug 2011 11:41:24 +0200 Original-Received: from sdl.web by 58.22.113.116 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 21 Aug 2011 11:41:24 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 42 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: 58.22.113.116 Face: iVBORw0KGgoAAAANSUhEUgAAACkAAAApAQAAAACAGz1bAAABKElEQVQYlWNg3NIt5FDPUPt7 4+X79Qyucz5/ugik+L2PBgKpyphaIK921q23QDnG0NBQoMr/vaWl9f8ZLL78uPv5PwN7RETfzXoG jhmFz27XM0RXmpuY/WfY+fv0Mc56BvFybfXA/wwL5t/wF61n2PU59axXPcOVzbmSW/8zrNt1benC /ww70hqUU/4zKCtrT9jwn8FhwynbufUMendE2aLqGRpdX9al1zM8eh17lKeeQcTMrdD5P8P3j/YT Q/8zXHSb7p1Qz/C4OM2JuZ7hgtI7K6AjqsMnf8j4z8C6xG1tw3+GqpqvsVn/GTzmpD9j/8/wP/oZ S/l/Bka+QO/g/wy15ueeFQL9N1O8mPU/g+umV3t1gdT0/1bTgHLqYVeXAlWKpMWt+w8Az82C9nHf X0cAAAAASUVORK5CYII= User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.3.50 (Mac OS X 10.6.8) Cancel-Lock: sha1:rJ0hYWkYQrOnOVzHaNphfRGYi/4= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 80.91.229.12 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:143476 Archived-At: 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(# (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") # 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") #) (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)