M-q (message-fill-paragraph) broken in cvs

M-q (message-fill-paragraph) broken in cvs

[Bill White]

Gnus v5.8.8, cvs as of 1200 UTC 20 Nov, GNU Emacs 20.7.1
(i586-pc-linux-gnu, X toolkit) of Thu Jun 22 2000 on
g.wolfram.com

,----
| Signaling: (wrong-number-of-arguments (lambda nil "Insert four newlines, and then reformat if inside quoted text." (interactive) (let ((point (point)) quoted) (save-excursion (beginning-of-line) (if (looking-at (sc-cite-regexp)) (setq quoted (buffer-substring (match-beginning 0) (match-end 0))))) (insert "
| 
| 
| 
| ") (delete-region (point) (re-search-forward "[ 	]*")) (when quoted (insert quoted)) (fill-paragraph nil) (goto-char point) (forward-line 2))) 1)
|   message-newline-and-reformat(t)
|   message-fill-paragraph()
| * call-interactively(message-fill-paragraph)
`----

,----[ C-h k M-q ]
| M-q runs the command message-fill-paragraph
|    which is an interactive compiled Lisp function in `message'.
| (message-fill-paragraph)
| 
| Like `fill-paragraph'.
`----

Cheers -

bw
-- 
Bill White . billw@wolfram.com . http://members.wri.com/billw
"No ma'am, we're musicians."

Re: M-q (message-fill-paragraph) broken in cvs

[ShengHuo ZHU]

Bill White <billw@wolfram.com> writes:

> Gnus v5.8.8, cvs as of 1200 UTC 20 Nov, GNU Emacs 20.7.1
> (i586-pc-linux-gnu, X toolkit) of Thu Jun 22 2000 on
> g.wolfram.com
> 
> ,----
> | Signaling: (wrong-number-of-arguments (lambda nil "Insert four newlines, and then reformat if inside quoted text." (interactive) (let ((point (point)) quoted) (save-excursion (beginning-of-line) (if (looking-at (sc-cite-regexp)) (setq quoted (buffer-substring (match-beginning 0) (match-end 0))))) (insert "
> | 
> | 
> | 
> | ") (delete-region (point) (re-search-forward "[ 	]*")) (when quoted (insert quoted)) (fill-paragraph nil) (goto-char point) (forward-line 2))) 1)
> |   message-newline-and-reformat(t)
> |   message-fill-paragraph()
> | * call-interactively(message-fill-paragraph)
> `----
> 
> ,----[ C-h k M-q ]
> | M-q runs the command message-fill-paragraph
> |    which is an interactive compiled Lisp function in `message'.
> | (message-fill-paragraph)
> | 
> | Like `fill-paragraph'.
> `----

It seems you are using the old message-newline-and-reformat.

ShengHuo

Re: M-q (message-fill-paragraph) broken in cvs

[Bill White]

False alarm! I had this tucked away in a dusty corner of my ~/.gnus:

,----[ ~/.gnus ]
| ; To: ding@gnus.org
| ; Subject: message-newline-and-reformat and supercite
| ; From: Vladimir Volovich <vvv@vvv.vsu.ru>
| ; Date: 26 Sep 1999 23:51:07 +0400
| ; Message-ID: <m3ln9tmoyc.fsf@vvv.vsu.ru>
| ; Xref: g.wolfram.com gnu.ding:10428
| (defun message-newline-and-reformat ()
|   "Insert four newlines, and then reformat if inside quoted text."
|   (interactive)
|   (let ((point (point))
|    quoted)
|     (save-excursion
|       (beginning-of-line)
|       (if (looking-at (sc-cite-regexp))
|      (setq quoted (buffer-substring (match-beginning 0) (match-end 0)))))
|     (insert "\n\n\n\n")
|     (delete-region (point) (re-search-forward "[ \t]*"))
|     (when quoted
|       (insert quoted))
|     (fill-paragraph nil)
|     (goto-char point)
|     (forward-line 2)))
`----

Commented out and all's well now.

bw
-- 
Bill White . billw@wolfram.com . http://members.wri.com/billw