Mercurial > emacs

changeset 110192:5e4124c807eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pop3-display-message-size-flag): Removed -- everybody wants message sizes.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 05 Sep 2010 00:49:07 +0000
parents 1e69e141b6a0
children 045086ad722e
files lisp/gnus/ChangeLog lisp/gnus/pop3.el
diffstat 2 files changed, 7 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Sun Sep 05 00:44:53 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sun Sep 05 00:49:07 2010 +0000
@@ -1,5 +1,8 @@
 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.
 
--- a/lisp/gnus/pop3.el	Sun Sep 05 00:44:53 2010 +0000
+++ b/lisp/gnus/pop3.el	Sun Sep 05 00:49:07 2010 +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)