* nnheader.el (nnheader-message-maybe): New function.
* nnimap.el (nnimap-wait-for-response): Message less (bug#9540).
2011-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * nnimap.el (nnimap-wait-for-response): Message less (bug#9540).
+
+ * nnheader.el (nnheader-message-maybe): New function.
+
* shr.el (shr-tag-table): Render totally broken tables better.
* mml.el (mml-generate-mime-1): Don't alter the contents if we're
'(buffer-string)))))
(insert-buffer-substring ,buffer ,start ,end))))
+(defvar nnheader-last-message-time '(0 0))
+(defun nnheader-message-maybe (&rest args)
+ (let ((now (current-time)))
+ (when (> (float-time (time-subtract now nnheader-last-message-time)) 1)
+ (setq nnheader-last-message-time now)
+ (apply 'nnheader-message args))))
+
(when (featurep 'xemacs)
(require 'nnheaderxm))
(looking-at "\\*"))))
(not (looking-at (format "%d .*\n" sequence)))))
(when messagep
- (nnheader-message 7 "nnimap read %dk" (/ (buffer-size) 1000)))
+ (nnheader-message-maybe
+ 7 "nnimap read %dk" (/ (buffer-size) 1000)))
(nnheader-accept-process-output process)
(goto-char (point-max)))
openp)