comparison lisp/mail/smtpmail.el @ 76873:d2d1b2bd4bbe

(smtpmail-via-smtp): Use standard case table when downcasing.

76872:f5f9a75d17e8

					   (smtpmail-read-response process))))
			  (not (integerp (car response-code)))
			  (>= (car response-code) 400))
		      (throw 'done nil)))
	      (dolist (line (cdr (cdr response-code)))
		(let ((name (mapcar (lambda (s) (intern (downcase s)))
				    (split-string (substring line 4) "[ ]"))))
		  (and (eq (length name) 1)
		       (setq name (car name)))
		    (and name
		       (cond ((memq (if (consp name) (car name) name)
				    '(verb xvrb 8bitmime onex xone

76873:d2d1b2bd4bbe

					   (smtpmail-read-response process))))
			  (not (integerp (car response-code)))
			  (>= (car response-code) 400))
		      (throw 'done nil)))
	      (dolist (line (cdr (cdr response-code)))
		(let ((old-case-table (current-case-table))
		      name)
		  ;; Make sure we're using the standard case table
		  ;; when downcasing; for instance, a downcased I is a
		  ;; dotless i in Turkish.
		  (unwind-protect
		      (progn (set-case-table (standard-case-table))
			     (setq name
				   (mapcar (lambda (s) (intern (downcase s)))
					   (split-string
					    (substring line 4) "[ ]"))))
		    (set-case-table old-case-table))
		  (and (eq (length name) 1)
		       (setq name (car name)))
		    (and name
		       (cond ((memq (if (consp name) (car name) name)
				    '(verb xvrb 8bitmime onex xone