ses-mode runs unsafe functions even if you say "n" when prompted

[Michael Schierl]

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


- Start Emacs -Q
- load the attached bug.ses file
- Replace the number 42 by another number
- Answer "n" to the message that appears

Formula (progn A1 (kill-emacs) 11)
might be unsafe (function kill-emacs).  Process it? (y or n)

- Watch emacs to close anyway

Expected result: Emacs should not run the function when you say "n".


----------
In GNU Emacs 22.1.1 (i386-mingw-nt5.1.2600)
 of 2007-06-02 on RELEASE
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/gnuwin32/include'

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: DEU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  encoded-kbd-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
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
M-x r e p o r t <tab> <return>

Recent messages:
("D:\\Progs\\emacs\\bin\\emacs.exe" "-q")
Loading encoded-kb...done
For information about the GNU Project and its goals, type C-h C-p. [2 times]
Loading emacsbug...
Loading regexp-opt...done
Loading emacsbug...done

     42
     11


(ses-cell A1 42 (progn (kill-emacs) A2 42) nil (A2))

(ses-cell A2 11 (progn A1 (kill-emacs) 11) nil (A1))

(ses-column-widths [7])
(ses-column-printers [nil])
(ses-default-printer "%.7g")
(ses-header-row 0)

( ;Global parameters (these are read first)
 2 ;SES file-format
 2 ;numrows
 1 ;numcols
)

;; Local Variables:
;; mode: ses
;; End: