Changeset 4169 for trunk/lisp/mail/smtpmail.el
- Timestamp:
- 09/30/06 09:12:06 (2 years ago)
- Files:
-
- trunk/lisp (modified) (1 prop)
- trunk/lisp/mail/smtpmail.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp
- Property svn:ignore changed from
*.elc
MANIFEST
Makefile
Makefile.unix
makefile
elc.tar.gz
cus-load.el
finder-inf.el
subdirs.el
loaddefs.el
to
*.elc
MANIFEST
Makefile
Makefile.unix
makefile
elc.tar.gz
cus-load.el
finder-inf.el
subdirs.el
loaddefs.el
pre-mh-loaddefs.el-CMD
- Property svn:ignore changed from
trunk/lisp/mail/smtpmail.el
r4161 r4169 542 542 (hash (rfc2104-hash 'md5 64 16 passwd decoded)) 543 543 (response (concat (smtpmail-cred-user cred) " " hash)) 544 (encoded (base64-encode-string response )))544 (encoded (base64-encode-string response t))) 545 545 (smtpmail-send-command process (format "%s" encoded)) 546 546 (if (or (null (car (setq ret (smtpmail-read-response process)))) … … 555 555 (throw 'done nil)) 556 556 (smtpmail-send-command 557 process (base64-encode-string (smtpmail-cred-user cred )))557 process (base64-encode-string (smtpmail-cred-user cred t))) 558 558 (if (or (null (car (setq ret (smtpmail-read-response process)))) 559 559 (not (integerp (car ret))) 560 560 (>= (car ret) 400)) 561 561 (throw 'done nil)) 562 (smtpmail-send-command process (base64-encode-string passwd ))562 (smtpmail-send-command process (base64-encode-string passwd t)) 563 563 (if (or (null (car (setq ret (smtpmail-read-response process)))) 564 564 (not (integerp (car ret))) … … 577 577 (smtpmail-cred-user cred) 578 578 "\0" 579 passwd) )))579 passwd) t))) 580 580 (if (or (null (car (setq ret (smtpmail-read-response process)))) 581 581 (not (integerp (car ret)))
