(getenv "LOGNAME")
(getenv "USER"))
"*POP3 maildrop."
- :version "21.4" ;; Oort Gnus
+ :version "22.1" ;; Oort Gnus
:type 'string
:group 'pop3)
(defcustom pop3-mailhost (or (getenv "MAILHOST") ;; nil -> mismatch
"pop3")
"*POP3 mailhost."
- :version "21.4" ;; Oort Gnus
+ :version "22.1" ;; Oort Gnus
:type 'string
:group 'pop3)
(defcustom pop3-port 110
"*POP3 port."
- :version "21.4" ;; Oort Gnus
+ :version "22.1" ;; Oort Gnus
:type 'number
:group 'pop3)
(defcustom pop3-password-required t
"*Non-nil if a password is required when connecting to POP server."
- :version "21.4" ;; Oort Gnus
+ :version "22.1" ;; Oort Gnus
:type 'boolean
:group 'pop3)
"*POP3 authentication scheme.
Defaults to 'pass, for the standard USER/PASS authentication. Other valid
values are 'apop."
- :version "21.4" ;; Oort Gnus
+ :version "22.1" ;; Oort Gnus
:type '(choice (const :tag "USER/PASS" pass)
(const :tag "APOP" apop))
:group 'pop3)
(defcustom pop3-leave-mail-on-server nil
"*Non-nil if the mail is to be left on the POP server after fetching.
-If the `pop3-leave-mail-on-server' is non-`nil' the mail is to be
-left on the POP server after fetching. Note that POP servers
-maintain no state information between sessions, so what the
-client believes is there and what is actually there may not match
-up. If they do not, then the whole thing can fall apart and
-leave you with a corrupt mailbox."
- :version "21.4" ;; Oort Gnus
+If `pop3-leave-mail-on-server' is non-nil the mail is to be left
+on the POP server after fetching. Note that POP servers maintain
+no state information between sessions, so what the client
+believes is there and what is actually there may not match up.
+If they do not, then the whole thing can fall apart and leave you
+with a corrupt mailbox."
+ :version "22.1" ;; Oort Gnus
:type 'boolean
:group 'pop3)
(defcustom pop3-maximum-message-size nil
"If non-nil only download messages smaller than this."
:type '(choice (const :tag "Unlimited" nil)
- (integer :tag "Maximum size" :format "%t: %v\n" :size 0))
+ (integer :tag "Maximum size"))
:group 'pop3)
(defcustom pop3-except-header-regexp nil
"If non-nil we do not retrieve messages whose headers are matching this regexp."
:type '(choice (const :tag "Retrieve any messages" nil)
- (regexp :format "%t: %v\n" :size 0))
+ (regexp :format "\n%t: %v"))
:group 'pop3)
(defcustom pop3-uidl-file-name "~/.uidls"
"File in which to store the UIDL of processed messages."
- :type '(file :format "%t: %v\n" :size 0)
+ :type 'file
:group 'pop3)
(defvar pop3-uidl-support nil
"openssl"
"ssleay")
"The program to run in a subprocess to open an SSL connection."
- :type '(string :format "%t: %v\n" :size 0)
+ :type 'string
:group 'pop3)
(defcustom pop3-ssl-program-arguments
'("s_client" "-quiet")
"Arguments to be passed to the program `pop3-ssl-program-name'."
- :type '(repeat (string :format "%v\n" :size 0))
+ :type '(repeat (string :format "%v"))
:group 'pop3)
(defun pop3-progress-message (format percent &rest args)