Synch with Oort Gnus.

diff --git a/GNUS-NEWS b/GNUS-NEWS
index 501f77e..d6e590d 100644 (file)
--- a/GNUS-NEWS
+++ b/GNUS-NEWS
@@ -10,17 +10,19 @@ For older news, see Gnus info node "New Features".
 
 ** gnus-agent
 
-The Gnus Agent is now enabled by default.  This means that, e.g.,
-headers are not downloaded from agentized servers by default (agentize
-servers by using `J a' in the server buffer).  Gnus will not start to
-download articles unless you instruct it to do so, though, by using
-e.g. J u or J s from the group buffer.  Revert to the old behaviour
-with `(setq gnus-agent nil)'.  Note that putting (gnus-agentize) in
-~/.gnus is not needed any more.  Now, by default all nntp and nnimap
+The Gnus Agent is now enabled by default, and all nntp and nnimap
 servers from gnus-select-method and gnus-secondary-select-method are
-agentized by default (earlier only the server in gnus-select-method
-was agentized).  You can view and change which servers should be
-agentized in the Server Buffer.
+agentized by default. Earlier only the server in gnus-select-method
+was agentized by the default, and the agent was disabled by default.
+When the agent is enabled, headers are now also retrieved from the
+Agent cache instead of the backends when possible. Earlier this only
+happened in the unplugged state.  You can enroll or remove servers
+with `J a' and `J r' in the server buffer.  Gnus will not download
+articles into the Agent cache, unless you instruct it to do so,
+though, by using `J u' or `J s' from the Group buffer.  You revert to
+the old behaviour of having the Agent disabled with `(setq gnus-agent
+nil)'.  Note that putting (gnus-agentize) in ~/.gnus is not needed any
+more.
 
 ** gnus-summary-line-format
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fff12cf..0ac078a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-08-28  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * mail-source.el (mail-source-touch-pop): New function.
+
+       * message.el (message-smtpmail-send-it): New function.
+       (message-send-mail-function): Add it for a candidate.
+
 2002-08-27  Simon Josefsson  <jas@extundo.com>
 
        * gnus-msg.el (posting-charset-alist): Use

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index e0fc8a5..f598463 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -779,6 +779,24 @@ If ARGS, PROMPT is used as an argument to `format'."
                    mail-source-password-cache)))
       result)))
 
+(defun mail-source-touch-pop ()
+  "Open and close a POP connection shortly.
+POP server should be defined in `mail-source-primary-source' (which is
+preferred) or `mail-sources'.  You may use it for the POP-before-SMTP
+authentication.  To do that, you need to set the option
+`message-send-mail-function' to `message-send-mail-with-smtp' or
+`message-smtpmail-send-it' and put the following line in .gnus file:
+
+\(add-hook 'message-send-mail-hook 'mail-source-touch-pop)
+"
+  (let ((sources (if mail-source-primary-source
+                    (list mail-source-primary-source)
+                  mail-sources)))
+    (while sources
+      (if (eq 'pop (car (car sources)))
+         (mail-source-check-pop (car sources)))
+      (setq sources (cdr sources)))))
+
 (defun mail-source-new-mail-p ()
   "Handler for `display-time' to indicate when new mail is available."
   ;; Flash (ie. ring the visible bell) if mail is available.

diff --git a/lisp/message.el b/lisp/message.el
index bca1f50..11c7274 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -519,13 +519,15 @@ variable `mail-header-separator'.
 
 Valid values include `message-send-mail-with-sendmail' (the default),
 `message-send-mail-with-mh', `message-send-mail-with-qmail',
-`message-send-mail-with-smtp', `smtpmail-send-it' and `feedmail-send-it'.
+`message-send-mail-with-smtp', `message-smtpmail-send-it',
+`smtpmail-send-it' and `feedmail-send-it'.
 
 See also `send-mail-function'."
   :type '(radio (function-item message-send-mail-with-sendmail)
                (function-item message-send-mail-with-mh)
                (function-item message-send-mail-with-qmail)
                (function-item message-send-mail-with-smtp)
+               (function-item message-smtpmail-send-it)
                (function-item smtpmail-send-it)
                (function-item feedmail-send-it)
                (function :tag "Other"))
@@ -3678,6 +3680,15 @@ This sub function is for exclusive use of `message-send-news'."
        nil)
      (not (funcall message-send-news-function method)))))
 
+(defun message-smtpmail-send-it ()
+  "Send the prepared message buffer with `smtpmail-send-it'.
+This only differs from `smtpmail-send-it' that this command evaluates
+`message-send-mail-hook' just before sending a message.  It is useful
+if your ISP requires the POP-before-SMTP authentication.  See the
+documentation for the function `mail-source-touch-pop'."
+  (run-hooks 'message-send-mail-hook)
+  (smtpmail-send-it))
+
 (defun message-canlock-generate ()
   "Return a string that is non-trival to guess.
 Do not use this for anything important, it is cryptographically weak."