How to use `~/.authfile' for POP account

[Yuan MEI]

My solution is
(defun passwd-from-authinfo (machine)
  (let* ((x (gnus-parse-netrc "~/.authinfo"))
         (y (gnus-netrc-machine x machine))
         (z (gnus-netrc-get y "password")))
    z))
and
(pop :server "foo.com" :user "bar"
         :password (passwd-from-authinfo "foo.com"))

Is there any ``Official'' solution to this?  Since smtp and imap could
utilize `.authfile' directly.
-- 
Yuan MEI