A bug in emacs

[cepir]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.3.1 (i686-pc-linux-gnu, Motif Version 2.1.30)
 of 2004-02-25 on amd64
configured using `configure  --prefix=/usr --host=i686-pc-linux-gnu 
--mandir=/usr/share/man --infodir=/usr/share/info --datadir=/usr/share 
--sysconfdir=/etc --localstatedir=/var/lib --with-x --with-xpm --with-jpeg 
--with-tiff --with-gif --with-png --with-x-toolkit=motif'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ru_RU.KOI8-R
  locale-coding-system: cyrillic-koi8
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

I've found a bug in emacs.
Here is a part of my .emacs file:
=======.emac starts=======
(setq calendar-week-start-day 1
      european-calendar-style t
      visible-bell t
;; Smooth scrolling
      scroll-conservatively 50
      scroll-up-aggresively 0
      scroll-down-aggresively 0
;; the BUG occurs when the next line is uncommented
       scroll-margin 5
)
(calendar)
(mark-diary-entries)
(other-window 1)
(display-time)
;; and here is the part of custom section:
(custom-set-variables
 '(mouse-wheel-follow-mouse t)
 '(mouse-wheel-mode t nil (mwheel))
 '(mouse-wheel-scroll-amount (quote (3 . 1)))
)
=======.emacs ends =======
Just after the emacs starts and everything is loaded, mouse points to
*scratch* buffer. Now I turn the mouse wheel down and emacs hangs,
giving 100% cpu usage.
If scroll-maigin is not set, it is safe to use mouse wheel.
The bug ws also detected in 21.2 version of emacs.



Recent input:
<help-echo> <help-echo> <menu-bar> <help-menu> <re
port-emacs-bug>

Recent messages:
Loading tooltip...done
Loading calendar...done
Loading mule-util...done
Loading cal-move...done
Loading diary-lib...done
Marking diary entries...done
Loading time...done
Loading regexp-opt...done
For information about the GNU Project and its goals, type C-h C-p.
Loading emacsbug...done