From d43283730bf2160dab3085d7d9c43299b15fac7a Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 8 Mar 2004 06:26:18 +0000
Subject: [PATCH] Synch to No Gnus 200403080625.

---
 texi/ChangeLog    |    4 ++++
 texi/gnus-ja.texi |   29 ++++++++++++++++++++++++++++-
 texi/gnus.texi    |   28 +++++++++++++++++++++++++++-
 3 files changed, 59 insertions(+), 2 deletions(-)

diff --git a/texi/ChangeLog b/texi/ChangeLog
index ebcbfab..2d6caf7 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+2004-03-08  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus.texi (POP before SMTP): Addition.
+
 2004-03-05  Jesper Harder  <harder@ifa.au.dk>
 
 	* gnus.texi (Spam ELisp Package Sequence of Events): Index.
diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi
index fcf732d..c45faae 100644
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -10783,7 +10783,34 @@ ISP $B$,(B @acronym{POP}-before-@acronym{SMTP} $B$NG'>Z$rMW5a$7$F$$$k>l9g$KM-
 $B$9!#(B@code{smtpmail-send-it} $B$G$O$J$/$F!"(B@code{message-send-mail-hook} $B$r(B
 $B<B9T$9$k(B @code{message-smtpmail-send-it} $B$r;H$o$J$1$l$P$J$i$J$$$3$H$H!"(B
 @acronym{POP} $B@\B3$N$?$a$K(B @code{mail-sources} $B$NCM$r@5$7$/@_Dj$7$J$1$l(B
-$B$P$J$i$J$$(B (@pxref{Mail Sources}) $B$3$H$KCm0U$7$F2<$5$$!#(B
+$B$P$J$i$J$$$3$H$KCm0U$7$F2<$5$$!#(B@xref{Mail Sources}.
+
+$B$b$7(B @code{mail-sources} $B$KFs$D0J>e$N(B @acronym{POP} $B%a!<%k%5!<%P!<$r@_Dj(B
+$B$7$F$$$k$J$i$P!"$=$l$i$N0l$D$r(B @acronym{POP}-before-@acronym{SMTP} $BG'>Z(B
+$B$K;H$o$l$k(B @acronym{POP} $B%a!<%k%5!<%P!<$H$7(B
+$B$F(B @code{mail-source-primary-source} $B$K@_Dj$9$kI,MW$,$"$k$G$7$g$&!#$=$l(B
+$B$,Bh0l(B @acronym{POP} $B%a!<%k%5!<%P!<$J$i$P(B ($B$9$J$o$A!"<g$K$=$N%5!<%P!<$+(B
+$B$i%a!<%k$r<hF@$7$F$$$k$J$i$P(B)$B!"$=$l$r0J2<$N$h$&$K915WE*$K@_Dj$9$k$3$H$,(B
+$B$G$-$^$9(B:
+
+@lisp
+(setq mail-source-primary-source
+      '(pop :server "pop3.mail.server"
+            :password "secret"))
+@end lisp
+
+@noindent
+$B$5$b$J$1$l$P!"(B@acronym{POP}-before-@acronym{SMTP} $BG'>Z$r9T$J$&$H$-$@$1!"(B
+$B$=$l$r0J2<$N$h$&$KF0E*$KB+G{$7$F2<$5$$(B:
+
+@lisp
+(add-hook 'message-send-mail-hook
+          (lambda ()
+            (let ((mail-source-primary-source
+                   '(pop :server "pop3.mail.server"
+                         :password "secret")))
+              mail-source-touch-pop)))
+@end lisp
 
 @node Mail and Post
 @section $B%a!<%k$HEj9F(B
diff --git a/texi/gnus.texi b/texi/gnus.texi
index 03b5d42..a0eff09 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -11456,7 +11456,33 @@ does only a @acronym{POP} authentication according to the value of
 Note that you have to use @code{message-smtpmail-send-it} which runs
 @code{message-send-mail-hook} rather than @code{smtpmail-send-it} and
 set the value of @code{mail-sources} for a @acronym{POP} connection
-(@pxref{Mail Sources}) correctly.
+correctly.  @xref{Mail Sources}.
+
+If you have two or more @acronym{POP} mail servers set in
+@code{mail-sources}, you may want to specify one of them to
+@code{mail-source-primary-source} as the @acronym{POP} mail server to be
+used for the @acronym{POP}-before-@acronym{SMTP} authentication.  If it
+is your primary @acronym{POP} mail server (i.e., you are fetching mails
+mainly from that server), you can set it permanently as follows:
+
+@lisp
+(setq mail-source-primary-source
+      '(pop :server "pop3.mail.server"
+            :password "secret"))
+@end lisp
+
+@noindent
+Otherwise, bind it dynamically only when performing the
+@acronym{POP}-before-@acronym{SMTP} authentication as follows:
+
+@lisp
+(add-hook 'message-send-mail-hook
+          (lambda ()
+            (let ((mail-source-primary-source
+                   '(pop :server "pop3.mail.server"
+                         :password "secret")))
+              mail-source-touch-pop)))
+@end lisp
 
 @node Mail and Post
 @section Mail and Post
-- 
1.7.10.4