fill-paragraph uses wrong fill-column value on strings

[Bielawski, Richard G.]

To recreate this problem:

1) Open any .el source in Emacs-Lisp mode.
2) Check to see that fill-column is not 65 (I believe it's default is 73).
2a) You can explicitly set it to 80 or something to exaggerate the problem.
3) Put point within any continuous multi-line comment string.
4) M-q
The text will be filled to column 65.
Also, the first line of the comment is not included in the fill although
I could understand if that feature is by design.

The problem does not occur when filling comments.

I could only track this down so far.
Stepping thru fill-paragraph the value returned by (current-fill-column)
remained 80 until just before the point where it recursively calls itself.

Debugger entered--returning value: (lisp-fill-paragraph . #[(&optional
justify) 
assoc(lisp-fill-paragraph ((fill-paragraph . #[...
* filladapt-funcall(lisp-fill-paragraph nil)
<the rest is the same as below>

At the point above 80 is still being returned by (current-fill-column).
After pressing 'd' one more time the trace below results and 65 returns.

I replaced unpastable stuff with "****" below.

Debugger entered--entering a function:
* fill-paragraph(nil)
  #[(&optional justify) "****" [justify paragraph-start paragraph-separate
emacs-lisp-docstring-fill-column fill-column fill-comment-paragraph
"\\|\\s-*\\([(;:\"]\\|`(\\)" "\\|\\s-*\".*[,\\.]$" fill-paragraph t] 3
518469 "P"](nil)
  apply(#[(&optional justify) "****" [justify paragraph-start
paragraph-separate emacs-lisp-docstring-fill-column fill-column
fill-comment-paragraph "\\|\\s-*\\([(;:\"]\\|`(\\)" "\\|\\s-*\".*[,\\.]$"
fill-paragraph t] 3 518469 "P"] nil)
* filladapt-funcall(lisp-fill-paragraph nil)
* byte-code("****" [filladapt-mode fill-prefix retval comment-multi-line
adaptive-fill-regexp adaptive-fill-mode nil t filladapt-adapt 1 0
filladapt-funcall filladapt-paragraph-within-fill-tolerance success
run-hooks filladapt-fill-paragraph-post-hook throw done
paragraph-ignore-fill-prefix filladapt-fill-column-tolerance fill-column
filladapt-fill-column-backward-fuzz low filladapt-fill-column-forward-fuzz
high old-fill-column lim sign delta function arg] 7)
* filladapt-fill-paragraph(lisp-fill-paragraph nil)
* lisp-fill-paragraph(nil)
* #[(arg) "****" [fill-paragraph-function fill-paragraph-handle-comment
function arg comment-start comment-end nil "" fill-comment-paragraph "\\|[
]*\\(?:" "\\)" move-to-left-margin zerop forward-paragraph ""
backward-paragraph fill-region fill-region-as-paragraph paragraph-start
fill-pfx before comment-start-skip beg end use-hard-newlines] 5 1723508
(progn (barf-if-buffer-read-only) (list ...))](nil)
* apply(#[(arg) "****" [fill-paragraph-function
fill-paragraph-handle-comment function arg comment-start comment-end nil ""
fill-comment-paragraph "\\|[    ]*\\(?:" "\\)" move-to-left-margin zerop
forward-paragraph "" backward-paragraph fill-region fill-region-as-paragraph
paragraph-start fill-pfx before comment-start-skip beg end
use-hard-newlines] 5 1723508 (progn (barf-if-buffer-read-only) (list ...))]
nil)
* filladapt-funcall(fill-paragraph nil)
* byte-code("****" [filladapt-mode fill-prefix retval comment-multi-line
adaptive-fill-regexp adaptive-fill-mode nil t filladapt-adapt 1 0
filladapt-funcall filladapt-paragraph-within-fill-tolerance success
run-hooks filladapt-fill-paragraph-post-hook throw done
paragraph-ignore-fill-prefix filladapt-fill-column-tolerance fill-column
filladapt-fill-column-backward-fuzz low filladapt-fill-column-forward-fuzz
high old-fill-column lim sign delta function arg] 7)
* filladapt-fill-paragraph(fill-paragraph nil)
* byte-code("****" [filladapt-inside-filladapt arg t
filladapt-fill-paragraph fill-paragraph] 3)
* fill-paragraph(nil)
  call-interactively(fill-paragraph)



In GNU Emacs 21.3.50.1 (i386-mingw-nt5.0.2195)
 of 2004-07-26 on BERATUNG4
configured using `configure --with-gcc (3.3) --cflags
-I../../jpeg-6b-1/include -I../../libpng-1.2.4-1/include
-I../../tiff-3.5.7/include -I../../xpm-nox-4.2.0/include
-I../../zlib-1.1.4-1/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: ENU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  eldoc-mode: t
  cua-mode: t
  recentf-mode: t
  show-paren-mode: t
  which-function-mode: t
  tool-bar-mode: t
  encoded-kbd-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<delete> <delete> <delete> <delete> <delete> <delete> 
<delete> <delete> <delete> <delete> <delete> <delete> 
<delete> * * * * <wheel-up> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <menu-bar> <options> <truncate-lines> <mouse-1> 
<mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> <mouse-1> 
<mouse-1> <mouse-1> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <menu-bar> <options> <truncate-lines> <wheel-up> 
<double-wheel-up> <triple-wheel-up> <triple-wheel-up> 
<up> <up> <up> <right> <S-down> <S-down> <S-down> <S-down> 
<S-down> <S-down> <S-down> <S-down> <S-down> <S-down> 
<S-down> <S-down> <S-down> <S-down> <S-down> <S-down> 
C-c <timeout> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <menu-bar> <help-menu> <re
port-emacs-bug>

Recent messages:
78 (0116, 0x4e)
Continuing.
Entering debugger...
65 (0101, 0x41)
Mark set [2 times]
Auto-saving...done
Undo! [2 times]
Truncate long lines disabled
Truncate long lines enabled
Loading emacsbug...done

Richard Bielawski
612-667-5039

"This message may contain confidential and/or privileged information.  If
you are not the addressee or authorized to receive this for the addressee,
you must not use, copy, disclose, or take any action based on this message
or any information herein.  If you have received this message in error,
please advise the sender immediately by reply e-mail and delete this
message.  Thank you for your cooperation."