Elisp: get pop3 password from .authinfo

Elisp: get pop3 password from .authinfo

[Sebastian Schubert]

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

Re: Elisp: get pop3 password from .authinfo

[Hadron Quark]

Sebastian Schubert <sebastian-schubert@gmx.de> writes:

> 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?

I look forward to seeing the solution to this : I ended up "require"ing
an external file with the smtp specifics for my outgoing email in order
to keep passwords hidden should I ever publish my .gnus or
sections of to help someone.

Re: Elisp: get pop3 password from .authinfo

[Johan Bockgård]

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

-- 
Johan Bockgård

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