Re: [yazicivo@ttnet.net.tr: Locale Dependent Downcasing in smtpmail]

[Volkan YAZICI <yazicivo@ttnet.net.tr>]

Kenichi Handa <handa@m17n.org> writes:
> In article <E1HXkPz-0003le-KI@fencepost.gnu.org>, Richard Stallman <rms@gnu.org> writes:
> Does the attached change fix the problem?
>
> ---
> Kenichi Handa
> handa@m17n.org
>
> *** smtpmail.el	10 Feb 2007 16:30:14 +0900	1.91
> --- smtpmail.el	02 Apr 2007 15:49:05 +0900	
> ***************
> *** 691,697 ****
>   			  (>= (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)))
> --- 691,704 ----
>   			  (>= (car response-code) 400))
>   		      (throw 'done nil)))
>   	      (dolist (line (cdr (cdr response-code)))
> ! 		(let ((name (mapcar (lambda (s)
> ! 				      (setq s (downcase s))
> ! 				      ;; If `I' is downcased to dotless-i,
> ! 				      ;; convert it to `i'.
> ! 				      (if (/= (downcase ?I) ?i)
> ! 					  (subst-char-in-string
> ! 					   (downcase ?I) ?i s t))

Such a fix is quite unfeasible. What do you think to do for other
problematic characters as well? Introduce a new if-else clause for
every one?

I am not faimilar with introducing a new macro policy of emacs team
but it'd probably be useful (handy?) to have something similar to this
macro:

(with-case-table 'ascii
  ;; Any call to DOWNCASE/UPCASE within this (dynamic?) scope will use
  ;; the case conversion table specified in the first argument of the
  ;; WITH-CASE-TABLE macro.
  ...)


Regards.