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

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