Re: [applied] smtpmail.el fix for SIZE arguments

Adrian.Aichner(a)t-online.de (Adrian Aichner) writes: Thanks for the catch! I inadvertedly sent the next-to-finished patch in my mail, contaning a paranthesis error.. Sorry. Try this patch instead. Index: smtpmail.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-packages/libs/mail-lib/smtpmail.el,v retrieving revision 1.5 diff -u -u -w -u -w -r1.5 smtpmail.el --- smtpmail.el 2000/12/12 19:12:26 1.5 +++ smtpmail.el 2001/03/23 09:53:30 ＠＠ -442,18 +442,15 ＠＠ (and (eq (length name) 1) (setq name (car name))) (and name - (cond ((memq name '(verb xvrb 8bitmime onex xone + (if (memq (if (consp name) (car name) name) + '(verb xvrb 8bitmime onex xone expn size dsn etrn enhancedstatuscodes help xusr auth=login auth starttls)) (setq supported-extensions - (cons name supported-extensions))) - ((and (consp name) (memq (car name) '(auth))) - (setq supported-extensions - (cons name supported-extensions))) - (t (message "unknown extension %s" - name))))) + (cons name supported-extensions)) + (message "unknown extension %s" name)))) (setq extension-lines (cdr extension-lines))))) (if (and (smtpmail-find-credentials smtpmail-starttls-credentials host port) ＠＠ -536,7 +533,8 ＠＠ ;; MAIL FROM: <sender> (let ((size-part - (if (member 'size supported-extensions) + (if (or (member 'size supported-extensions) + (assoc 'size supported-extensions)) (format " SIZE=%d" (save-excursion (set-buffer smtpmail-text-buffer)