Function: mail-source-touch-pop

mail-source-touch-pop is a byte-compiled function defined in mail-source.el.gz.

Signature

(mail-source-touch-pop)

Documentation

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 message-send-mail-function(var)/message-send-mail-function(fun) variable as message-smtpmail-send-it and put the following line in your ~/.gnus.el file:

(add-hook 'message-send-mail-hook #'mail-source-touch-pop)

See the Gnus manual for details.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mail-source.el.gz
(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
`message-send-mail-function' variable as `message-smtpmail-send-it'
and put the following line in your ~/.gnus.el file:

\(add-hook \\='message-send-mail-hook #\\='mail-source-touch-pop)

See the Gnus manual for details."
  (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)))))