-;;; @ functions used to show progress message
-;;;
-(defun smtp-parse-progress-message-format ()
- "Parse the `smtp-progress-message-format' variable.
-Return nil, or a cons of an ordinary format string and a type including
-nil, the symbols `b', `k' and `l'."
- (when smtp-progress-message-format
- (let ((format smtp-progress-message-format)
- (index 0)
- type)
- (while (string-match "%\\([bkl]\\)\\|%\\([^%bkl]\\|\\'\\)" format index)
- (if (and (not type)
- (match-beginning 1))
- (setq index (match-end 0)
- type (intern (match-string 1 format))
- format (replace-match
- (cond ((eq type 'b)
- (concat "%d/"
- (number-to-string (buffer-size))))
- ((eq type 'k)
- (if (>= (buffer-size) 512)
- (concat "%dk/"
- (number-to-string
- (/ (+ (buffer-size) 512) 1024))
- "k")
- (setq type 'b)
- (concat "%d/"
- (number-to-string (buffer-size)))))
- (t
- (concat "%d/"
- (number-to-string
- (count-lines (point-min)
- (point-max))))))
- nil nil format))
- (setq index (1+ (match-end 0))
- format (replace-match "%\\&" nil nil format))))
- (cons format type))))
-
-(defun smtp-show-progress-message (def prev)
- "Show progress message while sending mails.
-DEF is a cons cell which is pre-computed by the
-`smtp-parse-progress-message-format' function or nil.
-PREV is a number shown last time or nil.
-Return a number computed this time."
- (when (car def)
- (let* ((fmt (car def))
- (type (cdr def))
- (value (cond ((eq type 'b)
- (- (point) (point-min)))
- ((eq type 'k)
- (/ (- (point) (point-min) -512) 1024))
- ((eq type 'l)
- (count-lines (point-min) (point)))))
- message-log-max)
- (unless (and prev
- value
- (eq type 'k)
- (<= value prev))
- (cond ((featurep 'xemacs)
- (display-message 'no-log (if value
- (format fmt value)
- fmt)))
- (value
- (message fmt value))
- (t
- (message "%s" fmt))))
- value)))
-