Re: Elisp: get pop3 password from .authinfo

[Sebastian Schubert]

bojohan+news@dd.chalmers.se (Johan Bockgård) writes:

> Sebastian Schubert <sebastian-schubert@gmx.de> writes:
>
>> |   (let* ((x (gnus-parse-netrc nntp-authinfo-file))
>> |          (item (gnus-netrc-machine x "pop"))
>> |          (pw (gnus-netrc-get item "password")))
>
> Those functions have been renamed:
>
> gnus-parse-netrc     ->   netrc-parse
> gnus-netrc-machine   ->   netrc-machine
> gnus-netrc-get       ->   netrc-get

Thank you.  It works now:
the function:

(defun pw-from-authinfo (popserver)
  (require 'nntp)
  (let* ((x (netrc-parse nntp-authinfo-file))
         (item (netrc-machine x popserver))
         (pw (netrc-get item "password")))
    pw)) 


in the mail sources:

:password (pw-from-authinfo "your.mail.server")

Is there any reason to not include it in gnus nativly?

Sebastian