Fancy diary display bug

[Stephen Berman]

1. Write to your home directory a file named "diary" containing a
valid diary entry dated within a week from today but not today.

2. Let your ~/.emacs file contain only the lines within the following
boxquote:

,----[ ~/.emacs ]
| (diary)
| (custom-set-variables
|  '(diary-display-hook (quote (fancy-diary-display)))
|  '(number-of-diary-entries 7)
|  )
`----

3. Start Emacs without any command line arguments.  The diary entry is
not displayed.

If you comment out the diary-display-hook sexp from ~/.emacs and start
Emacs again, then the diary entry is displayed (using simple instead
of fancy diary display).  Alternatively, if you keep the
diary-display-hook with fancy-diary-display and add a diary entry
dated today, then when you start Emacs again, both diary entries are
shown with fancy diary display.


In GNU Emacs 22.0.96.3 (i686-pc-linux-gnu, GTK+ Version 2.10.6)
 of 2007-03-21 on escher
Windowing system distributor `The X.Org Foundation', version 11.0.70199902
configured using `configure  '--with-x-toolkit=gtk''

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: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Group

Minor modes in effect:
  gnus-topic-mode: t
  gnus-undo-mode: t
  tabbar-mwheel-mode: t
  tabbar-mode: t
  recentf-mode: t
  display-time-mode: t
  show-paren-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: identity

Recent input:
- d C-w C-s <help-echo> <select-window> <help-echo> 
<help-echo> <down-mouse-5> <mouse-5> <double-down-mouse-5> 
<double-mouse-5> C-c , C-c j i n i C-g C-c r i n i 
<return> <down-mouse-2> <mouse-2> <down-mouse-2> <mouse-2> 
<down-mouse-1> <mouse-movement> <mouse-movement> <drag-mouse-1> 
<down-mouse-3> <mouse-3> C-x s y <left> C-x C-e <S-right> 
C-x k <return> C-x k <return> C-c r d i <return> C-c 
, j d i <tab> a <tab> <return> <down-mouse-4> <mouse-4> 
<down-mouse-5> <mouse-5> <double-down-mouse-5> <double-mouse-5> 
<down-mouse-1> <mouse-1> C-c , j <return> <down-mouse-5> 
<mouse-5> <double-down-mouse-5> <double-mouse-5> <help-echo> 
<f3> <select-window> <select-window> <down-mouse-5> 
<mouse-5> <down-mouse-5> <mouse-5> <select-window> 
C-c , j f a n <tab> d <tab> <return> <down-mouse-5> 
<mouse-5> <double-down-mouse-5> <double-mouse-5> <down-mouse-5> 
<mouse-5> <down-mouse-5> <mouse-5> <down-mouse-5> <mouse-5> 
<select-window> C-x o C-s n u C-g <down> <down> <down> 
<down> <down> <down> <down> <next> <up> <down-mouse-5> 
<mouse-5> <down-mouse-5> <mouse-5> <down-mouse-5> <mouse-5> 
<down-mouse-5> <mouse-5> <double-down-mouse-5> <double-mouse-5> 
<down-mouse-5> <mouse-5> <down-mouse-1> <mouse-movement> 
<drag-mouse-1> <down-mouse-1> <mouse-1> <down-mouse-4> 
<mouse-4> <double-down-mouse-4> <double-mouse-4> <down-mouse-4> 
<mouse-4> <down-mouse-4> <mouse-4> <down-mouse-4> <mouse-4> 
<double-down-mouse-4> <double-mouse-4> <select-window> 
<down-mouse-5> <mouse-5> <double-down-mouse-5> <double-mouse-5> 
<down-mouse-5> <mouse-5> <down-mouse-5> <mouse-5> <down-mouse-5> 
<mouse-5> <down-mouse-5> <mouse-5> <down-mouse-5> <mouse-5> 
<down-mouse-5> <mouse-5> <double-down-mouse-5> <double-mouse-5> 
<down-mouse-5> <mouse-5> <down-mouse-5> <mouse-5> <down-mouse-5> 
<mouse-5> <double-down-mouse-5> <double-mouse-5> <down-mouse-4> 
<mouse-4> <double-down-mouse-4> <double-mouse-4> <f1> 
<help-echo> <select-window> <help-echo> <help-echo> 
<select-window> <help-echo> <help-echo> <help-echo> 
M-x g u <return> J j y <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<up> <up> M-g <return> <return> C-s C-q C-j SPC . <next> 
<prior> <home> C-s d i a r y C-s C-s C-s C-a C-s C-s 
C-s C-s <down> <up> <down> SPC <f1> C-s C-s C-a <right> 
SPC <down> SPC <down> <down> SPC <down> <down> <up> 
SPC <down> SPC <down> <down> <down> SPC <down> SPC 
<down> <down> SPC C-x 1 C-s C-s <right> SPC C-x 1 C-s 
C-s C-s <left> SPC C-s C-s C-s C-s <f1> C-a <end> Q 
y M-x r e p o <tab> r <tab> <return>

Recent messages:
Loading gnus-cite...done
Parsing BBDB... (frobnicating...done)
Mark saved where search started
Loading flow-fill...done
Auto-saving...done
Mark saved where search started [3 times]
Mark set
Discard changes to this group and exit? (y or n) 
Making completion list...
Loading emacsbug...done