el/dot-emacs.el: Add a (lightly modified) `nntp-open-authinfo-kludge'.

The original is by Richard Kettlewell,

	http://www.greenend.org.uk/rjk/tech/authinfo.html

I've changed it a bit, to be able to set the magic `NNTPAUTH' variable
differently for different Gnus select methods.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index e50d77383b09645a62464209bcd56629ecb015c6..b307dc2ba0d4951918cacc290e14a9ae84940af3 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -508,6 +508,27 @@ (let ((path exec-path))
          (setenv "REAL_MOVEMAIL" try))
       (setq path (cdr path)))))
 
          (setenv "REAL_MOVEMAIL" try))
       (setq path (cdr path)))))
 

+;; AUTHINFO GENERIC kludge.
+
+(defvar nntp-authinfo-generic nil
+  "Set to the `NNTPAUTH' string to pass on to `authinfo-kludge'.
+
+Use this to arrange for per-server settings.")
+
+(defun nntp-open-authinfo-kludge (buffer)
+  "Open a connection to SERVER using `authinfo-kludge'."
+  (let ((proc (start-process "nntpd" buffer
+                            "env" (concat "NNTPAUTH="
+                                          (or nntp-authinfo-generic
+                                              (getenv "NNTPAUTH")
+                                              (error "NNTPAUTH unset")))
+                            "authinfo-kludge" nntp-address)))
+    (set-buffer buffer)
+    (nntp-wait-for-string "^\r*200")
+    (beginning-of-line)
+    (delete-region (point-min) (point))
+    proc))
+

 (eval-after-load "erc"
     '(load "~/.ercrc.el"))
 
 (eval-after-load "erc"
     '(load "~/.ercrc.el"))