[Emacs-diffs] /srv/bzr/emacs/trunk r104742: Bind coding-system-for-* to binary to possibly avoid line encoding

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104742
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2011-06-27 02:02:15 +0200
message:
  Bind coding-system-for-* to binary to possibly avoid line encoding
  issues on Windows (among other things).
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-26 21:05:06 +0000
+++ b/lisp/ChangeLog    2011-06-27 00:02:15 +0000
@@ -1,3 +1,9 @@
+2011-06-27  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * mail/smtpmail.el (smtpmail-via-smtp): Bind coding-system-for-*
+       to binary to possibly avoid line encoding issues on Windows (among
+       other things).
+
 2011-06-26  Lars Magne Ingebrigtsen  <address@hidden>
 
        * net/network-stream.el (open-network-stream): Return an :error

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2011-06-26 21:05:06 +0000
+++ b/lisp/mail/smtpmail.el     2011-06-27 00:02:15 +0000
@@ -488,9 +488,9 @@
             (secret . "SMTP password for address@hidden: ")))
          (auth-info (car
                     (auth-source-search
-                     :max 1
                      :host host
                      :port port
+                     :max 1
                      :require (and ask-for-password
                                    '(:user :secret))
                      :create ask-for-password)))
@@ -615,6 +615,8 @@
                            (and mail-specify-envelope-from
                                 (mail-envelope-from))
                            user-mail-address))
+       (coding-system-for-read 'binary)
+       (coding-system-for-write 'binary)
        response-code
        process-buffer
        result
@@ -629,6 +631,7 @@
 
          ;; clear the trace buffer of old output
          (with-current-buffer process-buffer
+           (set-buffer-multibyte nil)
            (setq buffer-undo-list t)
            (erase-buffer))