Re: .authinfo and mail sources

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 576 bytes --]

>>>>> In <m3bt3434hy.fsf@quimbies.gnus.org> 
>>>>>	Lars Magne Ingebrigtsen <larsi@gnus.org> wrote:

Lars> `gnus-netrc-machine' now takes a port parameter, and nnimap
Lars> should supply an "imap" parameter for it to work.  (It defaults
Lars> to "nntp" as the port number.)

Still, it doesn't work.

(gnus-netrc-machine (gnus-parse-netrc "~/.netrc") "quimby.gnus.org")
 => Signaling: (wrong-number-of-arguments #'gnus-netrc-get 1)

It may be fixed as follows.

2000-04-21 05:22:18  Katsumi Yamaoka  <yamaoka@jpl.org>

        * gnus-util.el (gnus-netrc-machine): Didn't work.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-util.el.diff --]
[-- Type: text/x-patch, Size: 604 bytes --]

--- gnus-util.el~	Thu Apr 20 23:47:32 2000
+++ gnus-util.el	Fri Apr 21 05:22:18 2000
@@ -868,13 +868,12 @@
 	(when (assoc "default" (car rest))
 	  (push (car rest) result))
 	(pop rest)))
-    (setq result (nreverse result))
-    (if (null result)
-	nil
+    (when result
+      (setq result (nreverse result))
       (while (and result
-		  (not (equalp port (or (gnus-netrc-get result) "nntp"))))
+		  (not (equal port (gnus-netrc-get (car result) "port"))))
 	(pop result))
-      result)))
+      (car result))))
 
 (defun gnus-netrc-get (alist type)
   "Return the value of token TYPE from ALIST."

[-- Attachment #3: Type: text/plain, Size: 38 bytes --]

-- 
Katsumi Yamaoka <yamaoka@jpl.org>