SMTP Auth Failure

[Osamu Yamane]

SMTP Auth fails when the authenticatin involves sending strings of 77 
characters or longer.
This seems to be solved by applying the following patch:

************************** BEGINS HERE **************************
*** smtpmail.el.orig    Sat Aug  5 08:35:34 2006
--- smtpmail.el Mon Aug  7 21:24:03 2006
***************
*** 536,542 ****
                 (decoded (base64-decode-string challenge))
                 (hash (rfc2104-hash 'md5 64 16 passwd decoded))
                 (response (concat (smtpmail-cred-user cred) " " hash))
!                (encoded (base64-encode-string response)))
            (smtpmail-send-command process (format "%s" encoded))
            (if (or (null (car (setq ret (smtpmail-read-response process))))
                    (not (integerp (car ret)))
--- 536,542 ----
                 (decoded (base64-decode-string challenge))
                 (hash (rfc2104-hash 'md5 64 16 passwd decoded))
                 (response (concat (smtpmail-cred-user cred) " " hash))
!                (encoded (base64-encode-string response t)))
            (smtpmail-send-command process (format "%s" encoded))
            (if (or (null (car (setq ret (smtpmail-read-response process))))
                    (not (integerp (car ret)))
***************
*** 549,560 ****
                (>= (car ret) 400))
            (throw 'done nil))
        (smtpmail-send-command
!        process (base64-encode-string (smtpmail-cred-user cred)))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))
            (throw 'done nil))
!       (smtpmail-send-command process (base64-encode-string passwd))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))
--- 549,560 ----
                (>= (car ret) 400))
            (throw 'done nil))
        (smtpmail-send-command
!        process (base64-encode-string (smtpmail-cred-user cred) t))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))
            (throw 'done nil))
!       (smtpmail-send-command process (base64-encode-string passwd t))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (>= (car ret) 400))
***************
*** 571,577 ****
                                        (concat "\0"
                                                (smtpmail-cred-user cred)
                                                "\0"
!                                               passwd))))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (not (equal (car ret) 235)))
--- 571,577 ----
                                        (concat "\0"
                                                (smtpmail-cred-user cred)
                                                "\0"
!                                               passwd) t)))
        (if (or (null (car (setq ret (smtpmail-read-response process))))
                (not (integerp (car ret)))
                (not (equal (car ret) 235)))
************************** ENDS HERE **************************



In GNU Emacs 22.0.50.1 (i386-msvc-nt5.1.2600)
 of 2006-09-23 on CD
X server distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-msvc (13.10) --cflags -DIME_CONTROL 
-DRECONVERSION -DCLIENTEDGE -DWINVER=0x0501'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: JPN
  locale-coding-system: cp932
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  show-paren-mode: t
  display-time-mode: t
  encoded-kbd-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
<help-echo> <help-echo> <help-echo> <help-echo> <menu-bar> 
<help-menu> <report-emacs-bug>

Recent messages:
Loading subst-win...done
Loading subst-jisx0208ex...done
Loading subst-win-adhoc (compiled; note, source file is newer)...done
Loading gnus-setup...
Loading easymenu...done
Loading gnus-setup...done
For information about the GNU Project and its goals, type C-h C-p. [2 times]
Loading emacsbug...
Loading regexp-opt...done
Loading emacsbug...done