Commit 34e03853 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

(pop3-display-message-size-flag): Removed -- everybody wants message sizes.

parent 4469385c
2010-09-04 Lars Magne Ingebrigtsen <larsi@gnus.org>
* pop3.el (pop3-display-message-size-flag): Removed -- everybody wants
message sizes.
* gnus-agent.el (gnus-agent-load-local): Only read the agent.lib/local
file once per `g' run.
......
......@@ -98,12 +98,6 @@ thing can fall apart and leave you with a corrupt mailbox."
:type 'boolean
:group 'pop3)
(defcustom pop3-display-message-size-flag t
"*If non-nil, display the size of the message that is being fetched."
:version "22.1" ;; Oort Gnus
:type 'boolean
:group 'pop3)
(defvar pop3-timestamp nil
"Timestamp returned when initially connected to the POP server.
Used for APOP authentication.")
......@@ -161,13 +155,10 @@ Shorter values mean quicker response, but are more CPU intensive.")
(setq message-sizes (pop3-list process)))
(unwind-protect
(while (<= n message-count)
(if pop3-display-message-size-flag
(message "Retrieving message %d of %d from %s... (%.1fk)"
n message-count pop3-mailhost
(/ (cdr (assoc n message-sizes))
1024.0))
(message "Retrieving message %d of %d from %s..."
n message-count pop3-mailhost))
(message "Retrieving message %d of %d from %s... (%.1fk)"
n message-count pop3-mailhost
(/ (cdr (assoc n message-sizes))
1024.0))
(pop3-retr process n crashbuf)
(save-excursion
(set-buffer crashbuf)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment