Hallo,
I want to get the pop3 password from the .authinfo file to have all
password together. I found a function to do it:
http://groups.google.de/group/de.comm.software.gnus/msg/d3e772d5f684ce68?hl=de&;
,----
| (setq mail-sources `(... (pop :server "foo" :user "bar"
| :passwd ,(pw-from-authinfo)) ...))
|
| (defun pw-from-authinfo ()
| (require 'nntp)
| (let* ((x (gnus-parse-netrc nntp-authinfo-file))
| (item (gnus-netrc-machine x "pop"))
| (pw (gnus-netrc-get item "password")))
| pw))
`----
I need an additional argument for the server, so I changed the function
to:
,----
| (defun pw-from-authinfo (popserver)
| (require 'nntp)
| (let* ((x (gnus-parse-netrc nntp-authinfo-file))
| (item (gnus-netrc-machine x popserver))
| (pw (gnus-netrc-get item "password")))
| pw))
`----
and use
:passwd ,(pw-from-authinfo("my.server.org"))
That does not work. Why? Because of the let? What is correct? Can I use
the server string I added in the mail-sources?
Thanks
Sebastian
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
