From 34e03853f0c8f1bc3e4ba6dcc62a79c1f8027b9b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 5 Sep 2010 00:49:07 +0000 Subject: [PATCH] (pop3-display-message-size-flag): Removed -- everybody wants message sizes. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/pop3.el | 17 ++++------------- 2 files changed, 7 insertions(+), 13 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b73216ae702..9d1571751c1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-04 Lars Magne Ingebrigtsen + * 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. diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index be9ed179d28..b8f724c918d 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -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) -- 2.39.2