From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 21 Feb 2011 23:59:23 +0000 (-0800)
Subject: Fix typo.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=95ef741931c82aa7bb99f9ad7b147e11476cbbc8;hp=f76be6ec74434185fee0831c9c163c92d09ee000;p=gnus

Fix typo.
---

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index d53ffe657..e5a2e312f 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -696,7 +696,7 @@ while \(:host t) would find all host entries."
   (mapcar (lambda (value)
 	    (if (numberp value)
 		(format "%s" value)
-	      port))
+	      value))
 	  values))
 
 (defvar auth-source-netrc-cache nil)