Re: Can't send message through smtp with gmail

[mihkel <turakas@gmail.com>]

Hi and thanks for reply.

On Thu, Jun 28, 2012 at 1:28 AM, Katsumi Yamaoka <yamaoka@jpl.org> wrote:
> (smtpmail-via-smtp RECIPIENT SMTPMAIL-TEXT-BUFFER &optional
> ASK-FOR-PASSWORD)
>
> How about replacing those `(defvar ...' and `(defun ...' with
> the defadvice form as follows rather than redefining the function?
>
> (defadvice smtpmail-via-smtp (before change-smtp activate)
>  "Run `change-smtp' in advance."
>  (with-current-buffer smtpmail-text-buffer
>    (change-smtp)))
>
> This is essentially the same, but you don't have to care
> the arguments spec change.

I changed these two defvar and defun with defadvice as you suggested.
Now when I send a message gnus asks for a SMTP user name for
smtp.gmail.com. When I enter one, then all messages go through this
smtp account. I have this snippet for changing smtp server according
to "from" filed.


;; Change smtp server according to "from" field
(defun change-smtp ()
  "Change the SMTP server according to the current from line."
  (save-excursion
    (loop with from = (save-restriction
			(message-narrow-to-headers)
                        (message-fetch-field "from"))
          for (acc-type address . auth-spec) in smtp-accounts
          when (string-match address from)
          do (cond
              ((eql acc-type 'plain)
               (return (apply 'set-smtp-plain auth-spec)))
              ((eql acc-type 'ssl)
               (return (apply 'set-smtp-ssl auth-spec)))
              (t (error "Unrecognized SMTP account type: '%s'." acc-type)))
          finally (error "Cannot interfere SMTP information."))))

Does the defadvice code change mentioned above break this function? I
really have to ask you to bear with me, since I'm not a programmer...
just a emacs user :)


mihkel