Re: elisp newbie: simplifying from cl structures?

["Pascal J. Bourguignon" <pjb@informatimago.com>]

John Mastro <john.b.mastro@gmail.com> writes:

>>     (defun change-smtp ()
>>       "Change the SMTP server according to the current from line."
>>       (save-excursion
>>         (cl-loop with from = (save-restriction
>>                                (message-narrow-to-headers)
>>                                (message-fetch-field "from"))
>>                  for (address server port) in smtp-accounts
>>                  if (string-match address from)
>>                  return (funcall 'set-smtp server port address))
>>         (error "Cannot infer SMTP information.")))
>
> Second try. The return won't escape the `error' in the above.
>
>     (defun change-smtp ()
>       "Change the SMTP server according to the current from line."
>       (save-excursion
>         (cl-loop with from = (save-restriction
>                                (message-narrow-to-headers)
>                                (message-fetch-field "from"))
>                  for (address server port) in smtp-accounts
>                  if (string-match address from)
>                  return (funcall 'set-smtp server port address)
>                  finally (error "Cannot infer SMTP information."))))

    do (if  (string-match address from)
        (return (funcall 'set-smtp server port address)))
    finally (error "Cannot infer SMTP information.")

will.

-- 
__Pascal Bourguignon__                 http://www.informatimago.com/
“The factory of the future will have only two employees, a man and a
dog. The man will be there to feed the dog. The dog will be there to
keep the man from touching the equipment.” -- Carl Bass CEO Autodesk