X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=auth-ja.texi;h=7ae1c3b21ea4a41471f767803e1f8171edb7c28d;hb=55bf791b2d12bc4ff8767856e84d3bef0996a348;hp=b872e8c7f6099d79a71f16c39ba47fba3507a919;hpb=40a6d63eff9ed75acbd0458d5402d214cd1728fd;p=elisp%2Fgnus-doc-ja.git

diff --git a/auth-ja.texi b/auth-ja.texi
index b872e8c..7ae1c3b 100644
--- a/auth-ja.texi
+++ b/auth-ja.texi
@@ -1,13 +1,16 @@
 \input texinfo                  @c -*-texinfo-*-
+
+@include gnus-overrides-ja.texi
+
 @setfilename auth-ja
 @settitle Emacs auth-source Library @value{VERSION}
 
-@set VERSION 0.2
+@set VERSION 0.3
 
 @copying
 $B$3$N%U%!%$%k$O(B Emacs auth-source $B%i%$%V%i%j!<$r@bL@$7$^$9!#(B
 
-Copyright @copyright{} 2008, 2009, 2010 Free Software Foundation, Inc.
+Copyright @copyright{} 2008-2011 Free Software Foundation, Inc.
 
 @quotation
 Permission is granted to copy, distribute and/or modify this document
@@ -45,13 +48,18 @@ license to the document, as described in section 6 of the license.
 @end quotation
 @end copying
 
-@dircategory Emacs
+@dircategory Emacs lisp libraries
 @direntry
 * Auth-source-ja: (auth-ja).    The Emacs auth-source library (Japanese).
 @end direntry
 
 @titlepage
+@ifset WEBHACKDEVEL
+@title Emacs auth-source Library (DEVELOPMENT VERSION)
+@end ifset
+@ifclear WEBHACKDEVEL
 @title Emacs auth-source Library
+@end ifclear
 @author by Ted Zlatanov
 @page
 @vskip 0pt plus 1filll
@@ -85,15 +93,19 @@ license to the document, as described in section 6 of the license.
 @node Overview
 @chapter $B35MW(B
 
-auth-source $B%i%$%V%i%j!<$O!"!V%5!<%P!<L>$H%]!<%H$O$o$+$C$F$k$s$@$1$I!"%f!<(B
-$B%6!<L>$H%Q%9%o!<%I$O2?$@$C$1(B?$B!W$H$$$&@N$J$,$i$NG.Nu$JLd$$$KEz$($k$?$a$N!"(B
-Emacs $B$H(B Gnus $BMQ$N?t$"$kC1=c$J<jCJ$N0l$D$G$9!#(B
+auth-source $B%i%$%V%i%j!<$O!"!V;d$N%f!<%6!<L>$H%Q%9%o!<%I$O2?$@$C$1(B?$B!W$H(B
+$B$$$&@N$J$,$i$NG.Nu$JLd$$$KEz$($k$?$a$N!"(BEmacs $B$H(B Gnus $BMQ$N?t$"$kC1=c$J<j(B
+$BCJ$N0l$D$G$9!#(B
+
+($B$3$l$O2P;v$N$H$-$N!V>C2P4o$O$I$3$@(B?$B!W$H$$$&8E$/$+$i$NLd$$$H$O0[$J$j$^$9!#(B)
 
-$B<B:]$K$O(B auth-source $B%i%$%V%i%j!<$OC1$J$k%f!<%6!<L>(B ($B$$$o$f$k(B login) $B$d(B
-$B%Q%9%o!<%I0J30$N$b$N$b07$&$3$H$,$G$-$^$9$,!":#F|$N(B Emacs $B$H(B Gnus $B$G$O$=(B
-$B$l$i(B 2$B$D$@$1$,;H$o$l$F$$$^$9!#F1MM$K(B auth-source $B%i%$%V%i%j!<$OB?$/$N5-(B
-$BO?7A<0!"8=:_$OEAE}E*$J(B ``netrc'' $B7A<0(B ($B$3$NJ8=q$N8e$NJ}$K$"$j$^$9(B) $B$^$?(B
-$B$O%7!<%/%l%C%H%5!<%S%9(B API $B$r%5%]!<%H$7$^$9!#(B
+Auth-source $B%i%$%V%i%j!<$OC1$J$k%f!<%6!<L>$d%Q%9%o!<%I(B ($B$$$o$f$kHkL)(B) $B0J(B
+$B30$N$b$N$b07$&$3$H$,$G$-$^$9!#(B
+
+$BF1MM$K(B auth-source $B%i%$%V%i%j!<$OB?$/$NCyB"%P%C%/%(%s%I!"8=:_$OEAE}E*(B
+$B$J(B ``netrc'' $B%P%/%(%s%I(B ($B$3$NJ8=q$N8e$NJ}$K$"$j$^$9(B) $B$^$?$O%7!<%/%l%C%H(B
+$B%5!<%S%9(B API $B$r%5%]!<%H$7$^$9!#$3$l$O(B EIEIO $B$K4p$E$$$?%P%/%(%s%I$G9T$J$o(B
+$B$l!"$b$7I,MW$J$i$"$J$?FH<+$N$b$N$r=q$/$3$H$,$G$-$^$9!#(B
 
 @node Help for users
 @chapter $BMxMQ<T$N$?$a$N%X%k%W(B
@@ -103,28 +115,42 @@ Emacs $B$H(B Gnus $BMQ$N?t$"$kC1=c$J<jCJ$N0l$D$G$9!#(B
 machine @var{mymachine} login @var{myloginname} password @var{mypassword} port @var{myport}
 @end example
 
-machine $B$O%5!<%P!<$G$9(B (DNS $BL>$^$?$O(B IP $B%"%I%l%9(B)$B!#(B
+@code{machine} $B$O%5!<%P!<$G$9(B (DNS $BL>$^$?$O(B IP $B%"%I%l%9$N$I$A$i$+(B)$B!#(B
+@code{auth-source-search} $B8!:w$K$*$1$k(B @var{:host} $B$G$b$"$j$^$9!#(B
+@code{host} $B$b;H$&$3$H$,$G$-$^$9!#(B
+
+@code{port} $B$O@\B3$9$k%]!<%H$^$?$O%W%m%H%3%k$G$9!#(B
+@code{auth-source-search} $B8!:w$K$*$1$k(B @var{:port} $B$G$b$"$j$^$9!#(B
+
+@code{user} $B$O%f!<%6!<L>$G$9!#(B@code{auth-source-search} $B8!:w$K$*$1(B
+$B$k(B @var{:user} $B$G$b$"$j$^$9!#(B@code{login} $B$*$h$S(B @code{account} $B$b;H$&$3(B
+$B$H$,$G$-$^$9!#(B
 
-$B%]!<%H$N;XDj$OL5$/$F$b9=$$$^$;$s!#L5$$>l9g!"(Bauth-source $B$O$I$s$J%]!<%H(B
-$B$b(B OK $B$J$N$@$H2r<a$7$^$9!#<B:]$N$H$3$m!"%]!<%H$O%W%m%H%3%k$NL>A0$+%]!<%H(B
-$BHV9f$N$I$A$i$G$bNI$$$N$G!"$b$7$=$&$7$?$$$N$J$i$P!"%]!<%H(B @var{143} $B$H%W(B
-$B%m%H%3%k(B @code{imap} $B$N$?$a$N9`L\$rJL!9$K;}$D$3$H$,$G$-$^$9!#$H$b$"$l!"(B
-$B$b$7%]!<%H$N;XDj$,MW$i$J$$>l9g$O>JN,$7$F$b9=$$$^$;$s!#(B
+$B6uGrJ8;z$O(B auth-source $B$K4X$7$F$O>o$K(B OK $B$G$9(B ($BB>$N%W%m%0%i%`$K$ONI$/$J(B
+$B$$$+$b$7$l$^$;$s$,(B)$B!#%G!<%?$O0zMQId$G0O$s$G$/$@$5$$!#%G!<%?Cf$N0zMQId$O(B
+$B$"$J$?$NM=A[DL$j(B @code{\} $B$G%(%9%1!<%W$7$F$/$@$5$$!#(B
 
-login $B$H(B password $B$O!"%5!<%P!<$KBP$7$F4J7i$K$"$J$?$N%m%0%$%s;q3J$r>ZL@$9(B
-$B$k$?$a$N$b$N$G$9!#(B
+$B$9$Y$F$3$l$i$OG$0U$G$9!#$I$3$G$bF1$8%Q%9%o!<%I$r;H$&$?$a$K!"$?$@C1$K(B
+
+@example
+password @var{mypassword}
+@end example
+
+$B$H@_Dj$9$k$3$H$,$G$-$^$9(B---$B$H$$$&$3$H$,2DG=$G$"$k$3$H$r<($7$F$$$k$N$G$"$C(B
+$B$F!"$=$l$r?d>)$7$F$$$k$o$1$G$O$"$j$^$;$s!#7+$jJV$7$^$9$,(B @emph{$B$3$l$O;H(B
+$B$o$J$$$G$/$@$5$$(B}$B!#$5$b$J$$$H$R$I$$L\$K2q$&$G$7$g$&!#(B
 
 ``Netrc'' $B%U%!%$%k$ODL>o(B @code{.authinfo} $B$^$?$O(B @code{.netrc} $B$H8F$P$l(B
-$B$^$9!#:#$G$O(B @code{.authinfo} $B$NJ}$,Ia5Z$7$F$$$k$h$&$J$N$G!"8e$G$o$+$k$h(B
-$B$&$K(B auth-source $B%i%$%V%i%j!<$O$=$l$r%G%#%U%)%k%H$K$9$k$3$H$K$h$C$F!"$3(B
-$B$N:.Mp$r=uD9$7$F$$$^$9!#(B
+$B$^$9!#:#$G$O(B @code{.authinfo} $B$NJ}$,Ia5Z$7$F$$$k$h$&$G$9$,!"8e$G$o$+$k$h(B
+$B$&$K(B auth-source $B%i%$%V%i%j!<$O$=$l$i$NN>J}$r<u$1F~$l$k$?$a$K!"$3$N:.Mp(B
+$B$r=uD9$7$F$$$^$9!#(B
 
-$B$b$7%]!<%H$GLdBj$,$"$k$N$J$i(B @code{auth-source-debug} $B$r(B @code{t} $B$K@_Dj(B
-$B$7$F!"%i%$%V%i%j!<$,$I$N%]!<%H$r%A%'%C%/$7$F$$$k$+(B
-$B$r(B @code{*Messages*} $B%P%C%U%!!<$G8+$F$/$@$5$$!#F1MM$KB>$N$I$s$JLdBj$K$D(B
-$B$$$F$b!"2?$,%A%'%C%/$5$l$F$$$k$+$rD4$Y$k$N$,!"$"$J$?$NBh0lJb$G$9!#BhFs$N(B
-$B%9%F%C%W$O$b$A$m$s$=$l$K$D$$$F$N(B blog $B$r=q$$$F!"%3%a%s%H$G2sEz$rBT$D$3$H(B
-$B$G$9!#(B
+$B$b$78!:w$GLdBj$,$"$k$N$J$i(B @code{auth-source-debug} $B$r(B @code{trivia} $B$K(B
+$B@_Dj$7$F!"%i%$%V%i%j!<$,$I$N%[%9%H!"%]!<%H$*$h$S%f!<%6!<$r%A%'%C%/$7$F$$(B
+$B$k$+$r(B @code{*Messages*} $B%P%C%U%!!<$G8+$F$/$@$5$$!#F1MM$KB>$N$I$s$JLdBj(B
+$B$K$D$$$F$b!"2?$,%A%'%C%/$5$l$F$$$k$+$rD4$Y$k$N$,!"$"$J$?$NBh0lJb$G$9!#Bh(B
+$BFs$N%9%F%C%W$O$b$A$m$s$=$l$K$D$$$F$N(B blog $B$r=q$$$F!"%3%a%s%H$G2sEz$rBT$D(B
+$B$3$H$G$9!#(B
 
 $BJQ?t(B @code{auth-sources} $B$r%+%9%?%^%$%:$9$k$3$H$,$G$-$^$9!#$b$78E$$%P!<(B
 $B%8%g%s$N(B Emacs $B$r;H$C$F$$$k$+!"2?$+$NM}M3$N$?$a$K(B auth-source $B%i%$%V%i%j!<(B
@@ -142,62 +168,42 @@ login $B$H(B password $B$O!"%5!<%P!<$KBP$7$F4J7i$K$"$J$?$N%m%0%$%s;q3J$r>ZL@$
 $B$,!"%G%#%U%)%k%H$N:G$b4J7i$J@_Dj$O<!$NDL$j$G$9(B:
 
 @lisp
-;;; $B5l%G%#%U%)%k%H(B: :host $B$H(B :protocol $B$,I,MW$@$C$?$,!"$b$O$dITMW!#(B
-(setq auth-sources '((:source "~/.authinfo.gpg" :host t :protocol t)))
+;;; $B5l%G%#%U%)%k%H(B: :host $B$H(B :port $B$,I,MW$@$C$?$,!"$b$O$dITMW!#(B
+(setq auth-sources '((:source "~/.authinfo.gpg" :host t :port t)))
 ;;; $B$[$\Ey2A$@$,!"$h$jC;$$(B ($B8e=R$N(B fallback $B$K$D$$$F$N5-=R$r;2>H(B)$B!#(B
 (setq auth-sources '((:source "~/.authinfo.gpg")))
+;;; $B$5$i$KC;$$(B @emph{$B%G%#%U%)%k%H(B}:
+(setq auth-sources '("~/.authinfo.gpg" "~/.authinfo" "~/.netrc"))
+;;; $B%7!<%/%l%C%H(B API $B$N(B @var{Login} $B%3%l%/%7%g%s$r;H$&(B
+;;; (@pxref{Secret Service API})
+(setq auth-sources '("secrets:Login"))
 @end lisp
 
-$B$3$l$O!V$I$s$J%[%9%H$N$I$N%]!<%H$G$b!"$3$NC10l$N%U%!%$%k$r;H$&!W$H$$$&0U(B
-$BL#$G$9!#AG@2$i$7$/4JC1$G$7$g$&!#<B:]$K$O8e<T$,$9$G$K%G%#%U%)%k%H$K$J$C$F(B
-$B$$$k$N$G!"$=$N%U%!%$%k$,$"$l$P!"$3$l$O5!G=$7$^$9!#$=$l$,$"$k$3$H$r3N$+$a(B
-$B$F$/$@$5$$!#(B
-
 $BFCDj$N%[%9%H$+%W%m%H%3%k$N%(%s%H%j!<$rJ#?t(B @code{auth-sources} $B$KDI2C$9(B
 $B$k$3$H$K$h$C$F!"$=$N%[%9%H$+%W%m%H%3%k$KFC2=$7$?(B netrc $B%U%!%$%k$r;}$D$3(B
 $B$H$,$G$-$^$9!#IaDL$3$l$OI,MW$"$j$^$;$s$,!"(Bnetrc $B%U%!%$%k$r6&M-$7$?$jJQ$o$C(B
 $B$?@_Dj$,$"$k>l9g$O0UL#$,$"$k$+$b$7$l$^$;$s(B (90% $B$N(B Emacs $B%f!<%6!<$OJQ$J(B
 $B@_Dj$r;}$C$F$$$F!";D$j$N(B 10% $B$O(B @emph{$BK\Ev$K(B} $BJQ$o$C$F$$$^$9(B)$B!#(B
 
-$B$3$l$O!"$9$Y$F$N;2>H$K%7!<%/%l%C%H%5!<%S%9(B API $B$r;H$&Nc$G$9!#%G%U%)%k%H(B
-$B$N<}=8J*$r;H$$$^$9(B:
-
-@lisp
-(setq auth-sources '((:source (:secrets default))))
-@end lisp
-
-$B$=$7$F$3$l$O!":.:_$9$k(B 2$B$D$N%=!<%9$r;H$&Nc$G$9(B:
+$B$3$l$O!":.:_$9$k(B 2$B$D$N%=!<%9$r;H$&Nc$G$9(B:
 
 @lisp
 (setq auth-sources '((:source (:secrets default) :host "myserver" :user "joe")
-                     (:source "~/.authinfo.gpg")))
+                     "~/.authinfo.gpg"))
 @end lisp
 
-$B:GA1$N9gCW$O!"=i2s$NAv::$@$1$G(B ($B2<$+$i;O$^$k(B) $B=g=x$K$h$C$F7hDj$5$l$^(B
-$B$9(B ($B3FMWAG$O87L)$K>H9g$5$l$^$9(B)$B!#>e$NNc$G$O!"=i2s$NAv::$G%[%9(B
-$B%H(B @code{myserver} $B$X$NC10l$N9gCW$r8+$D$1$k$G$7$g$&!#(BNetrc $BA*Br$G$O!"$=(B
-$B$l$,$I$s$J%[%9%H$d%W%m%H%3%k$K$b0E$K(B (@emph{fallback} $B$H$7$F(B) $B9gCW$7$F$7(B
-$B$^$&$N$G!"<:GT$9$k$G$7$g$&!#(B@code{auth-sources} $B$K$*$1(B
-$B$k(B @code{:host t} $B$N@_DjCM$O!"(B@code{:host} $B$,L5$$>l9g$H0c$C$F!"=i2s$NAv(B
-$B::$K$*$1$k9gCW$rL\O@$s$@$b$N$G$"$k$H9MN8$5$l$^$9!#(B
-
-$B$5$F!"$b$7(B ``$BL$@_Dj(B'' $B$N%[%9%H$rC5$=$&$H$9$k$H!"$=$l$O$I$s$J%=!<%9$K$bL@(B
-$B$i$+$J9gCW$O$7$J$$$G$7$g$&!#(B2$B2sL\$NAv::(B (@emph{fallback} $B%Q%9(B) $B$G$O!"$9(B
-$B$Y$F$N0EL[$N9gCW$rD4$Y$F!"$=$l$i$r<}=8$7$^$9!#$=$l$i$O%9%3%"IU$1$5$l!"%9(B
-$B%3%"$K$h$C$FJB$YJQ$($i$l$^$9!#%9%3%"$O!"9gCW$9$kL@<(E*$J%Q%i%a!<%?!<$N?t(B
-$BCM$K4p$E$$$F$$$^$9!#>\:Y$O(B @code{auth-pick} $B4X?t$r;2>H$7$F$/$@$5$$!#(B
-
-$BLuCm(B fallback: $B$"$kMWAG$,;XDj$5$l$F$$$J$$$?$a$K87L)$J9gCW$,5/$3$i$J$/$F(B
-$B$b!"$"$k5,B'$K$h$C$FA*Br$9$kL\E*J*!"$"$k$$$OA*Br$9$k$3$H!#(B
 @end defvar
 
 $B$b$7(B @code{auth-sources} $B$r%+%9%?%^%$%:$7$J$$$H!"%G%#%U%)%k%H$G@83h$9$k(B
 $B$3$H$K$J$k$G$7$g$&!#$=$N%G%#%U%)%k%H$H$O!"$I$s$J%[%9%H$b%]!<%H$K$D$$$F(B
-$B$b(B netrc $B%U%!%$%k(B @code{~/.authinfo.gpg} $B$r;2>H$9$k$H$$$&$3$H$G$9!#$3$l(B
-$B$O(B GnuPG $B$G0E9f2=$5$l$?%U%!%$%k$G$9!#(B@xref{GnuPG and EasyPG Assistant
-Configuration}.
+$B$b(B netrc $B%U%!%$%k(B @file{~/.authinfo.gpg} $B$r;2>H$9$k$H$$$&$3$H$G$9!#$3$l(B
+$B$O(B GnuPG $B$G0E9f2=$5$l$?%U%!%$%k$G$9(B (@pxref{GnuPG and EasyPG Assistant
+Configuration})$B!#(B
+
+$B$b$7$=$NFI$_9~$_$K<:GT$9$k$H!"0E9f2=$5$l$F$$$J$$(B netrc $B%U%!%$%k$G$"(B
+$B$k(B @code{~/.authinfo}$B!"B3$$$F(B @code{~/.netrc} $B$,;H$o$l$^$9!#(B
 
-$B<B:]$K;H$($k:G$b4JC1$J(B netrc $B9T$NNc$O!"%]!<%H$,L5$$$b$N$G$9!#(B
+$BBeI=E*$J(B netrc $B9T$NNc$O!"%]!<%H$,L5$$$b$N$G$9!#(B
 
 @example
 machine YOURMACHINE login YOU password YOURPASSWORD
@@ -242,89 +248,148 @@ TODO: $B$I$&F/$/$+$r0lHLE*$K!"(Bsecrets.el $B$O$I$&$d$k$+!"$$$/$D$+$NNc!#(B
 @node Help for developers
 @chapter $B3+H/<T$N$?$a$N%X%k%W(B
 
-auth-source $B%i%$%V%i%j!<$K$O!"30It$G;H$&$?$a$N4X?t$O0l$D$7$+$"$j$^$;$s!#(B
+auth-source $B%i%$%V%i%j!<$O!"2?$i$+$NF0:n$r9T$J$C$?7k2L$N5-O?$r:N$k$3$H$,(B
+$B$G$-$^$9!#(B
 
-@defun auth-source-user-or-password mode host port &optional username
-$B%[%9%H(B @var{host} $B$*$h$S%]!<%H(B @var{port} $B$N$?$a$N(B @var{mode} $B$G7h$^$kE,(B
-$B@Z$JG'>Z%H!<%/%s$r<h$j9~$_$^$9!#$b$7(B @var{username} $B$,M?$($i$l$l$P!"F1MM(B
-$B$K>H9g$5$l$^$9!#(B@code{auth-source-debug} $B$,(B @code{t} $B$@$C$?$i%G%P%C%0$N(B
-$B$?$a$N%a%C%;!<%8$rI=<($7$^$9!#%m%0$r:N$k$?$a$N4X?t$r;H$&$K$O!"(B
-@code{auth-source-debug} $B$r$=$N4X?t$K@_Dj$7$F$/$@$5$$!#EO$5$l$k%Q%i%a!<(B
-$B%?!<$O(B @code{message} $B4X?t$,<u$1<h$k$b$N$HF1$8$G$9!#$D$^$jMM<0;HMQ$NJ8;z(B
-$BNs$HG$0U$N%Q%i%a!<%?!<$G$9!#(B
+@defvar auth-source-debug
+$B$3$NJQ?t$r(B @code{trivia} $B$K$9$k$H!"(B@code{*Messages*} $B%P%C%U%!!<$X$N$?$/(B
+$B$5$s$N=PNO$r8+$k$3$H$,$G$-$^$9!#$"$k$$$O$3$l$K(B @code{message} $B$K;w$?4X?t(B
+$B$r@_Dj$7$F!"$"$J$?FH<+$N$d$jJ}$G5-O?$r:N$k$3$H$b$G$-$^$9!#(B
+@end defvar
+
+auth-source $B%i%$%V%i%j!<$K$O!"30It$G;H$&$?$a$N4X?t$O>/$7$7$+$"$j$^$;$s!#(B
 
-$B$b$7(B @var{mode} $B$,J8;zNs$N%j%9%H$J$i$P!"4X?t$OJ8;zNs$N%j%9%H(B
-$B$+(B @code{nil} $B$rJV$7$^$9(B ($B$=$N$?$a!"$b$&(B 1$B2s(B netrc $B%U%!%$%k$r2r@O$;$:$K!"(B
-$B$^$?$O%7!<%/%l%C%H%5!<%S%9(B API $B$r>H9g$;$:$K:Q$_$^$9(B)$B!#:#$N$H$3(B
-$B$m(B ``login'' $B$H(B ``password'' $B$@$1$,G'$a$i$l$F$$$^$9$,!">-Mh$O$b$C$HB?$/(B
-$B$N$b$N$,DI2C$5$l$k$G$7$g$&!#(B
+@defun auth-source-search SPEC
 
-@var{host} $B$O%[%9%HL>$NJ8;zNs$G$9!#(B
+TODO: $B$I$&$d$C$F(B docstring $B$r4^$a$k(B?
 
-@var{port} $B$O%W%m%H%3%kL>(B ($BNc$($P(B ``imap'') $B$^$?$O%]!<%HHV9f$G$9!#%f!<%6!<(B
-$B$N(B netrc $B%U%!%$%k$K$"$k%]!<%H$KBP1~$9$kJ8;zNs$G$J$1$l$P$J$j$^$;$s!#(B
+@end defun
 
-@var{username} $B$O%f!<%6!<L>$NJ8;zNs(B ($BNc$($P(B ``joe'') $B$G$9!#(B
+$B$G$O(B Gnus $B$N(B @code{nnimap.el} $B$+$i(B @code{auth-source-search} $B$r;H$&Nc$r(B
+$B8+$F$_$^$7$g$&!#(B
 
 @example
-;; IMAP example
-(setq auth (auth-source-user-or-password
-            '("login" "password")
-            "anyhostnamehere"
-            "imap"))
-(nth 0 auth) ; $B%m%0%$%sL>(B
-(nth 1 auth) ; $B%Q%9%o!<%I(B
+(defun nnimap-credentials (address ports)
+  (let* ((auth-source-creation-prompts
+          '((user  . "IMAP user at %h: ")
+            (secret . "IMAP password for %u@@%h: ")))
+         (found (nth 0 (auth-source-search :max 1
+                                           :host address
+                                           :port ports
+                                           :require '(:user :secret)
+                                           :create t))))
+    (if found
+        (list (plist-get found :user)
+              (let ((secret (plist-get found :secret)))
+                (if (functionp secret)
+                    (funcall secret)
+                  secret))
+              (plist-get found :save-function))
+      nil)))
 @end example
+
+@c $B0J2<$NLuJ8$N<A$,0-$$$N$O86J8$N=PMh$N9s$5$N$?$a!#(B
+$B$3$N8F$S=P$7$O$=$N7k2L$K%f!<%6!<L>$H%Q%9%o!<%I(B ($B<0Cf$N(B @code{secret}) $B$,(B
+$B4^$^$l$k$3$H$r5a$a$F$$$^$9!#$5$i$K!"$b$7$=$N9`L\$,$^$@L5$+$C$?$i:n$kI,MW(B
+$B$b$"$j$^$9!#$=$N9`L\$r:n$k:]$K%f!<%6!<$H$d$j<h$j$9$k>l9g$O!"<0Cf$K$"$k<A(B
+$BLdJ8$,;H$o$l$^$9!#$3$N8F$S=P$7$O!"%f!<%6!<$X$N<ALdJ8$N%G%#%U%)%k%HCM$N$?(B
+$B$a$K(B @code{auth-source-creation-defaults} $B$K$"$k%G!<%?$rEO$9$3$H$b$G$-$^(B
+$B$9!#(B
+
+$B%Q%9%o!<%I$,$b$74X?t$@$C$?$i!"$=$l$OI>2A$5$l$kI,MW$,$"$k$3$H$KCm0U$7$F$/(B
+$B$@$5$$!#$"$kDxEY$N0BA4BP:v$H$7$F!"$=$l$O4X?t$GJq$^$l$F$$$^$9!#(B
+
+$B$=$N8e%m%0%$%s$K@.8y$7$?$i(B @code{nnimal.el} $B$O<!$N$h$&(B
+$B$K(B @code{:save-function} $B$r8F$S$^$9(B:
+
+@example
+(when (functionp (nth 2 credentials))
+   (funcall (nth 2 credentials)))
+@end example
+
+$B$3$l$O(B @code{:save-function} $B$NM-L5$K4X$o$i$9F0:n$9$k$G$7$g$&!#(B
+@code{:save-function}$B$O?7$7$$9`L\$,:n$i$l$?$H$-$@$1Ds6!$5$l$k$N$G!"$3$l(B
+$B$O<B:]$K!V%m%0%$%s@.8y8e!W$J$N$G$9!#$=$7$F2f!9$,$A$g$&$I;H$C$F$$$?G'>Z>p(B
+$BJs(B ($B$?$@$7$3$l$,?7$?:n$i$l$?$b$N$G$"$k$N$J$i(B) $B$r%;!<%V$7$^$9!#(B
+
+$B:G=i$K$=$l$,8F$P$l$?8e!"(B@code{:save-function} $B$,:FEYAv$k$3$H$O$"$j$^$;$s(B
+($B$7$+$7$b$7(B @code{auth-source-debug} $B$r(B @code{'trivia} $B$K@_Dj$7$F$"$k$J(B
+$B$i$P!"$=$N$3$H$rB?>/5-O?$7$^$9!#$3$l$9$J$o$A!"$=$l$O]5F+$7$$F1$8<ALd$,7+(B
+$B$jJV$5$l$k$3$H$O$J$$$H$$$&$3$H$G$9!#(B
+
+$B$7$?$,$C$F(B @code{:create t} $B$r@_Dj$7$?(B API $B%f!<%6!<$N@UG$$O!"$b$7B8:_$9(B
+$B$k$J$i$P(B @code{:save-function} $B$r8F$V$3$H$G$9!#(B
+
+@defun auth-source-delete SPEC
+
+TODO: $B$I$&$d$C$F(B docstring $B$r4^$a$k(B?
+
+@end defun
+
+@defun auth-source-forget SPEC
+
+TODO: $B$I$&$d$C$F(B docstring $B$r4^$a$k(B?
+
+@end defun
+
+@defun auth-source-forget+ SPEC
+
+TODO: $B$I$&$d$C$F(B docstring $B$r4^$a$k(B?
+
 @end defun
 
-@c TRANSLATEME
 @node GnuPG and EasyPG Assistant Configuration
-@appendix GnuPG and EasyPG Assistant Configuration
+@appendix GnuPG $B$*$h$S(B EasyPG $B%"%7%9%?%s%H$N@_Dj(B
 
-In Emacs 23 or later there is an option @code{auto-encryption-mode} to
-automatically decrypt @code{*.gpg} files and it is enabled by default
-so there is no setting is needed.  If you are using earlier versions
-of Emacs for some reason, you will need:
+@code{auth-sources} $B$r%+%9%?%^%$%:$7$J$$>l9g!"(Bauth-source $B%i%$%V%i%j!<(B
+$B$O(B @file{~/.authinfo.gpg} (GnuPG $B$G0E9f2=$5$l$?%U%!%$%k(B) $B$rFI$_9~$_$^$9!#(B
+$B$=$N8e$G(B @file{~/.authinfo} $B$r8!::$7$^$9$,!"$=$N$h$&$J0E9f2=$5$l$F$$$J$$(B
+$B%U%!%$%k$r;H$&$3$H$O?d>)$7$^$;$s!#(B
+
+Emacs 23 $B0J9_$G$O(B @code{*.gpg} $B%U%!%$%k$N0E9f$r<+F0E*$K2r$/$?$a$N%*%W%7%g(B
+$B%s(B @code{auto-encryption-mode} $B$,$"$j$^$9!#%G%#%U%)%k%H$GM-8z$G$9!#$b$7(B
+$B2?$i$+$NM}M3$G(B Emacs $B$N=i4|$NHG$r;H$C$F$$$k>l9g$O!"0J2<$,I,MW$G$9(B:
 
 @lisp
 (require 'epa-file)
 (epa-file-enable)
 @end lisp
 
-If you want your GnuPG passwords to be cached, setup @code{gpg-agent}
-or EasyPG Assitant
-@pxref{Caching Passphrases, , Caching Passphrases, epa}
-
-For those who are using older vesions of Emacs, here are some portion
-copied from the EasyPG Assitant manual:
+$B$"$J$?$N(B GnuPG $B$N%Q%9%o!<%I$,%-%c%C%7%e$5$l$k$h$&$K$7$?$$$J$i!"(B
+@code{gpg-agent} $B$^$?$O(B EasyPG $B%"%7%9%"%s%H$r@_Dj$7$F$/$@$5(B
+$B$$(B (@pxref{Caching Passphrases, , Caching Passphrases, epa})$B!#(B
 
-Here are some questions:
+$B<jAa$/;H$$;O$a$k$K$O!"$^$:0J2<$N@_Ld$KBP$9$kEz$rMQ0U$7$F$/$@$5$$(B:
 
 @enumerate
-@item Do you use GnuPG version 2 instead of GnuPG version 1?
-@item Do you use symmetric encryption rather than public key encryption?
-@item Do you want to use gpg-agent?
+@item
+GnuPG $B$N%P!<%8%g%s(B 1 $B$G$O$J$/!"%P!<%8%g%s(B 2 $B$r;H$C$F$$$^$9$+(B?
+@item
+$B8x3+800E9f$G$J$J$/!"6&DL800E9f$r;H$C$F$$$^$9$+(B?
+@item
+gpg-agent $B$r;H$$$?$$$G$9$+(B?
 @end enumerate
 
-Here are configurations depending on your answers:
+$B0J2<$O>e5-$N<A5?$KBP$9$k$"$J$?$N2sEz$K4p$E$$$?@_Dj$G$9(B:
 
 @multitable {111} {222} {333} {configuration configuration configuration}
 @item @b{1} @tab @b{2} @tab @b{3} @tab Configuration
-@item Yes @tab Yes @tab Yes @tab Nothing to do.
-@item Yes @tab Yes @tab No @tab You can't, without gpg-agent.
-@item Yes @tab No @tab Yes @tab Nothing to do.
-@item Yes @tab No @tab No @tab You can't, without gpg-agent.
-@item No @tab Yes @tab Yes @tab Set up elisp passphrase cache.
-@item No @tab Yes @tab No @tab Set up elisp passphrase cache.
-@item No @tab No @tab Yes @tab Nothing to do.
-@item No @tab No @tab No @tab You can't, without gpg-agent.
+@item Yes @tab Yes @tab Yes @tab gpg-agent $B$r@_Dj$7$F$/$@$5$$!#(B
+@item Yes @tab Yes @tab No @tab gpg-agent $BL5$7$G$O$G$-$^$;$s!#(B
+@item Yes @tab No @tab Yes @tab gpg-agent $B$r@_Dj$7$F$/$@$5$$!#(B
+@item Yes @tab No @tab No @tab gpg-agent $BL5$7$G$O$G$-$^$;$s!#(B
+@item No @tab Yes @tab Yes @tab ELisp $BHG$N%Q%9%o!<%I!&%-%c%C%7%e$r@_Dj$7$F$/$@$5$$!#(B
+@item No @tab Yes @tab No @tab ELisp $BHG$N%Q%9%o!<%I!&%-%c%C%7%e$r@_Dj$7$F$/$@$5$$!#(B
+@item No @tab No @tab Yes @tab gpg-agent $B$r@_Dj$7$F$/$@$5$$!#(B
+@item No @tab No @tab No @tab gpg-agent $BL5$7$G$O$G$-$^$;$s!#(B
 @end multitable
 
-To setup gpg-agent, follow the instruction in GnuPG manual.
-@pxref{Invoking GPG-AGENT, , Invoking GPG-AGENT, gnupg}.
+gpg-agent $B$r@_Dj$9$k$K$O(B GnuPG $B%^%K%e%"%k(B (@pxref{Invoking GPG-AGENT, ,
+Invoking GPG-AGENT, gnupg}) $B$N@bL@$K=>$C$F$/$@$5$$!#(B
 
-To set up elisp passphrase cache, set
-@code{epa-file-cache-passphrase-for-symmetric-encryption}.
+ELisp $BHG$N%Q%9%o!<%I!&%-%c%C%7%e$r;H$&>l9g(B
+$B$O(B @code{epa-file-cache-passphrase-for-symmetric-encryption} $B$r@_Dj$7$F(B
+$B$/$@$5$$!#(B
 
 @node Index
 @chapter Index