* netrc.el (netrc-services-file): New variable.

[gnus] / lisp / assistant.el

diff --git a/lisp/assistant.el b/lisp/assistant.el
index 1bdb748..c20cf42 100644 (file)
--- a/lisp/assistant.el
+++ b/lisp/assistant.el
@@ -364,6 +364,12 @@
          nil)
       error)))
 
+(defun assistant-authinfo-data (server port type)
+  (when (file-exists-p "~/.authinfo")
+    (let ((data
+          (netrc-machine (netrc-parse "~/.authinfo")
+                         server port)))
+
 (provide 'assistant)
 
 ;;; arch-tag: 0404bfa2-9226-4611-8d3f-335c2416175b