Re: BUG: ngnus-0.10 can't send messages

[Uwe Brauer <oub@mat.ucm.es>]

>>>>> "Katsumi" == Katsumi Yamaoka <yamaoka@jpl.org> writes:

>>>>> Reiner Steib wrote:
   >> Fix it to handle non-nil ALL correctly.

   > Yup, it's exactly the solution.  Maybe those advices can be
   > simply replaced with:

   > (defadvice mail-extract-address-components (after capitalize first activate)
   >   "Capitalize names."
   >   (dolist (adrs (if (ad-get-arg 1)
   > 		    ad-return-value
   > 		  (and ad-return-value (list ad-return-value))))
   >     (if (car adrs)
   > 	(setcar adrs (capitalize (car adrs))))))

   > (defadvice mail-extract-address-components (after capitalize-mc last activate)
   >    "Fix capitalization of \"Mc\" names, e.g. \"Mcdonald\" -> \"McDonald\"."
   >    (let ((case-fold-search nil)
   > 	 full-name start)
   >      (dolist (adrs (if (ad-get-arg 1)
   > 		       ad-return-value
   > 		     (and ad-return-value (list ad-return-value))))
   >        (when (setq full-name (car adrs))
   > 	 (setq start 0)
   > 	 (while (string-match "\\<Mc\\([^aeiou]\\)" full-name start)
   > 	   (aset full-name (match-beginning 1)
   > 		 (upcase (aref full-name (match-beginning 1))))
   > 	   (setq start (match-end 0)))))))


Thanks for that code.

Uwe