Function: gnus-error

gnus-error is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-error LEVEL &rest ARGS)

Documentation

Beep an error if LEVEL is equal to or less than gnus-verbose.

ARGS are passed to message.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-error (level &rest args)
  "Beep an error if LEVEL is equal to or less than `gnus-verbose'.
ARGS are passed to `message'."
  (when (<= (floor level) gnus-verbose)
    (apply #'message args)
    (ding)
    (let (duration)
      (when (and (floatp level)
		 (not (zerop (setq duration (* 10 (- level (floor level)))))))
	(sit-for duration))))
  nil)