From de603698279b21b5120841908543e8b4ca0da8ea Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 28 Aug 2002 10:59:46 +0000 Subject: [PATCH] Synch with Oort Gnus. --- GNUS-NEWS | 22 ++++++++++++---------- lisp/ChangeLog | 7 +++++++ lisp/mail-source.el | 18 ++++++++++++++++++ lisp/message.el | 13 ++++++++++++- 4 files changed, 49 insertions(+), 11 deletions(-) diff --git a/GNUS-NEWS b/GNUS-NEWS index 501f77e..d6e590d 100644 --- 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 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-08-28 Katsumi Yamaoka + + * 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 * gnus-msg.el (posting-charset-alist): Use diff --git a/lisp/mail-source.el b/lisp/mail-source.el index e0fc8a5..f598463 100644 --- 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 --- 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." -- 1.7.10.4