[Emacs-diffs] /srv/bzr/emacs/trunk r101343: (pop3-display-message-size-flag): Removed -- everybody wants message sizes.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101343
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 00:49:07 +0000
message:
  (pop3-display-message-size-flag): Removed -- everybody wants message sizes.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/pop3.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-05 00:44:53 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-05 00:49:07 +0000
@@ -1,5 +1,8 @@
 2010-09-04  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/gnus/pop3.el'
--- a/lisp/gnus/pop3.el 2010-09-02 01:42:32 +0000
+++ b/lisp/gnus/pop3.el 2010-09-05 00:49:07 +0000
@@ -98,12 +98,6 @@
   :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 @@
       (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)