(smtpmail-via-smtp): Bind `coding-system-for-read' by

`smtpmail-coding-system' to avoid dead-locking in Emacs 20.

diff --git a/lisp/smtpmail.el b/lisp/smtpmail.el
index a56e951..25b29b2 100644 (file)
--- a/lisp/smtpmail.el
+++ b/lisp/smtpmail.el
@@ -328,6 +328,7 @@ This is relative to `smtpmail-queue-dir'.")
        greeting
        process-buffer
        (supported-extensions '())
+       (coding-system-for-read smtpmail-coding-system)
        (coding-system-for-write smtpmail-coding-system))
     (unwind-protect
        (catch 'done