[EMAIL PROTECTED] (Johan Bockgård) writes:
> Sebastian Schubert <[EMAIL PROTECTED]> 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
_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english
