Re: smtpmail authentication again

[Ted Zlatanov <tzz@lifelogs.com>]

On Wed, 11 Jan 2012 06:45:23 +0100 Richard Riley <rileyrg@gmail.com> wrote: 

RR> I pulled nognus from git but this function is not there. there is
RR> an -or-password funtion 

RR> (auth-source-user-or-password MODE HOST PORT &optional USERNAME
RR> CREATE-MISSING)

RR> but that takes different args. Can you confirm
RR> which repo this new function  is in and sorry if Im wasting your time.

It's in the Gnut Git repo.  You did something wrong.  Here's the
function, anyhow:

#+begin_src lisp
(defun auth-source-user-and-password (host &optional user)
  (let* ((auth-info (car
                     (if user
                         (auth-source-search
                          :host host
                          :user "yourusername"
                          :max 1
                          :require '(:user :secret)
                          :create nil)
                       (auth-source-search
                        :host host
                        :max 1
                        :require '(:user :secret)
                        :create nil))))
         (user (plist-get auth-info :user))
         (password (plist-get auth-info :secret)))
    (when (functionp password)
      (setq password (funcall password)))
    (list user password auth-info)))

#+end_src

The old `auth-source-user-or-password' is obsolete.  I named this one
slightly differently to liven things up a bit (think "who's on first?"
"user-or-password?" "no, user-AND-password" "AND is on second?" etc. :)

Ted