Error while quoting

Error while quoting

[Nevin Kapur]

Trying to quote a message while responding yields the following error.

-Nevin

Debugger entered--Lisp error: (invalid-function 2751)
  (2751)
  (gnus-inews-make-draft-meta-information "nnimap+Caltech:INBOX" (2751))
  (lambda nil (gnus-inews-make-draft-meta-information "nnimap+Caltech:INBOX" (2751)))()
  message-generate-headers((From Date (optional . In-Reply-To) Message-ID (optional . User-Agent) (X-Face . gnus-random-x-face) (X-Draft-From lambda nil (gnus-inews-make-draft-meta-information "nnimap+Caltech:INBOX" ...)) (optional . References) From))
  message-setup-1(((Subject . "Re: yyy yyyy yyyyy yyyy") (To . "xxx xxxxxx <xxx@xx.xxxxxx.xxx>")) #<buffer  *gnus article copy*> nil)
  message-setup(((Subject . "Re: yyy yyyy yyyyy yyyy") (To . "xxx xxxxxx <xxx@xx.xxxxxx.xxx>")) #<buffer  *gnus article copy*>)
  message-reply(nil nil)
  (progn (if (not very-wide) (gnus-summary-select-article) (dolist ... ... ...)) (set-buffer (gnus-copy-article-buffer)) (gnus-msg-treat-broken-reply-to gnus-msg-force-broken-reply-to) (save-restriction (message-narrow-to-head) (when very-wide ... ...) (goto-char ...)) (mml-quote-region (point) (point-max)) (message-reply nil wide) (when yank (gnus-inews-yank-articles yank)) (gnus-summary-handle-replysign))
  (unwind-protect (progn (if ... ... ...) (set-buffer ...) (gnus-msg-treat-broken-reply-to gnus-msg-force-broken-reply-to) (save-restriction ... ... ...) (mml-quote-region ... ...) (message-reply nil wide) (when yank ...) (gnus-summary-handle-replysign)) (gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article (if yank ... ...) gnus-setup-yanked-articles) (setq gnus-message-buffer (current-buffer)) (set (make-local-variable ...) (cons gnus-setup-message-group gnus-setup-message-article)) (set (make-local-variable ...) gnus-setup-message-group) (gnus-run-hooks (quote gnus-message-setup-hook)) (if (eq major-mode ...) (let ... ... ... ... ... ... ...) (mml-destroy-buffers) (setq mml-buffer-list mbl)))
  (let ((gnus-setup-message-winconf ...) (gnus-setup-message-buffer ...) (gnus-setup-message-article gnus-article-reply) (gnus-setup-yanked-articles gnus-article-yanked-articles) (gnus-setup-message-group gnus-newsgroup-name) (message-header-setup-hook ...) (mbl mml-buffer-list) (message-mode-hook ...)) (setq mml-buffer-list nil) (add-hook (quote message-header-setup-hook) (quote gnus-inews-insert-gcc)) (add-hook (quote message-header-setup-hook) (quote gnus-inews-insert-archive-gcc)) (add-hook (quote message-mode-hook) (if ... ... ...)) (gnus-pull (quote X-Draft-From) message-required-headers) (when (and gnus-setup-message-group ...) (push ... message-required-headers)) (unwind-protect (progn ... ... ... ... ... ... ... ...) (gnus-inews-add-send-actions gnus-setup-message-winconf gnus-setup-message-buffer gnus-setup-message-article ... gnus-setup-yanked-articles) (setq gnus-message-buffer ...) (set ... ...) (set ... gnus-setup-message-group) (gnus-run-hooks ...) (if ... ... ... ...)) (message-hide-headers) (gnus-add-buffer) (gnus-configure-windows (if yank ... ...) t) (run-hooks (quote post-command-hook)) (set-buffer-modified-p nil))
  (gnus-setup-message (if yank (quote reply-yank) (quote reply)) (if (not very-wide) (gnus-summary-select-article) (dolist ... ... ...)) (set-buffer (gnus-copy-article-buffer)) (gnus-msg-treat-broken-reply-to gnus-msg-force-broken-reply-to) (save-restriction (message-narrow-to-head) (when very-wide ... ...) (goto-char ...)) (mml-quote-region (point) (point-max)) (message-reply nil wide) (when yank (gnus-inews-yank-articles yank)) (gnus-summary-handle-replysign))
  (let* ((article ...) (gnus-article-reply ...) (gnus-article-yanked-articles yank) (headers "")) (when yank (gnus-summary-goto-subject article)) (gnus-setup-message (if yank ... ...) (if ... ... ...) (set-buffer ...) (gnus-msg-treat-broken-reply-to gnus-msg-force-broken-reply-to) (save-restriction ... ... ...) (mml-quote-region ... ...) (message-reply nil wide) (when yank ...) (gnus-summary-handle-replysign)))
  (progn (let* (... ... ... ...) (when yank ...) (gnus-setup-message ... ... ... ... ... ... ... ... ...)))
  (if (or (not ...) (not ...) (y-or-n-p "Really reply by mail to article author? ")) (progn (let* ... ... ...)))
  (when (or (not ...) (not ...) (y-or-n-p "Really reply by mail to article author? ")) (let* (... ... ... ...) (when yank ...) (gnus-setup-message ... ... ... ... ... ... ... ... ...)))
  gnus-summary-reply(((2751)) nil)
  gnus-article-reply-with-original(nil)
* call-interactively(gnus-article-reply-with-original)

Re: Error while quoting

[Lars Magne Ingebrigtsen]

Nevin Kapur <nkapur@cs.caltech.edu> writes:

> Trying to quote a message while responding yields the following error.
>
> -Nevin
>
> Debugger entered--Lisp error: (invalid-function 2751)
>   (2751)
>   (gnus-inews-make-draft-meta-information "nnimap+Caltech:INBOX" (2751))

Should be fixed now.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Error while quoting

[Nevin Kapur]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Nevin Kapur <nkapur@cs.caltech.edu> writes:
>
>> Trying to quote a message while responding yields the following error.

[...]

> Should be fixed now.

Quoting the entire message works now but quoting a selection still
produces an error.  And so does not quoting at all, i.e., `f' instead
of `F'.

-Nevin

Debugger entered--Lisp error: (wrong-type-argument numberp (57546))
  number-to-string((57546))
  mapconcat(number-to-string ((57546)) " ")
  gnus-inews-make-draft-meta-information("nntp+news.gmane.org:gmane.emacs.gnus.general" (57546))
  (lambda nil (gnus-inews-make-draft-meta-information "nntp+news.gmane.org:gmane.emacs.gnus.general" (quote ...)))()
  message-generate-headers((From Date (optional . In-Reply-To) Message-ID (optional . User-Agent) (X-Face . gnus-random-x-face) (X-Draft-From lambda nil (gnus-inews-make-draft-meta-information "nntp+news.gmane.org:gmane.emacs.gnus.general" ...)) (optional . References) From))
  message-setup-1(((Subject . "Re: Error while quoting") (To . "Lars Magne Ingebrigtsen <larsi@gnus.org>")) #<buffer  *gnus article copy*> nil)
  message-setup(((Subject . "Re: Error while quoting") (To . "Lars Magne Ingebrigtsen <larsi@gnus.org>")) #<buffer  *gnus article copy*>)
  message-reply(nil nil)
  gnus-summary-reply(((57546)) nil)
  gnus-article-reply-with-original(nil)
* call-interactively(gnus-article-reply-with-original)


Debugger entered--Lisp error: (wrong-number-of-arguments #<subr quote> 0)
  (quote)
  (gnus-inews-make-draft-meta-information "nntp+news.gmane.org:gmane.emacs.gnus.general" (quote))
  (lambda nil (gnus-inews-make-draft-meta-information "nntp+news.gmane.org:gmane.emacs.gnus.general" (quote)))()
  message-generate-headers((From Newsgroups Date Message-ID (optional . Organization) (optional . User-Agent) (X-Face . gnus-random-x-face) (X-Draft-From lambda nil (gnus-inews-make-draft-meta-information "nntp+news.gmane.org:gmane.emacs.gnus.general" ...)) (optional . References) From))
  message-setup-1(((Subject . "Re: Error while quoting") (Newsgroups . "gmane.emacs.gnus.general")) #<buffer  *gnus article copy*> nil)
  message-setup(((Subject . "Re: Error while quoting") (Newsgroups . "gmane.emacs.gnus.general")) #<buffer  *gnus article copy*>)
  message-followup(nil)
  gnus-post-news(nil "nntp+news.gmane.org:gmane.emacs.gnus.general" [57546 "Re: Error while quoting" "Lars Magne Ingebrigtsen <larsi@gnus.org>" "Wed, 19 May 2004 21:38:29 +0200" "<m365asryve.fsf@quimbies.gnus.org>" "<m2brkk1adx.fsf@nkpbook-invalid.cs.caltech.edu>" 401 18 "main.gmane.org gmane.emacs.gnus.general:57546" ((Newsgroups . "gmane.emacs.gnus.general"))] "*Article*" nil nil nil)
  gnus-summary-followup(nil)
* call-interactively(gnus-summary-followup)

Re: Error while quoting

[Lars Magne Ingebrigtsen]

Nevin Kapur <nkapur@cs.caltech.edu> writes:

> Quoting the entire message works now but quoting a selection still
> produces an error.  And so does not quoting at all, i.e., `f' instead
> of `F'.

Oh, now I remember why that code was so odd before.

I think I've now matched it up to previous levels of oddness, so it
might work now...

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Error while quoting

[Nevin Kapur]

Lars Magne Ingebrigtsen wrote:

> I think I've now matched it up to previous levels of oddness, so it
> might work now...

Hmm...things seem a lot worse now.  I get the following error when I 
begin composing the response *and* when I try sending it.

-Nevin

Debugger entered--Lisp error: (wrong-type-argument sequencep 57548)
   mapconcat(#[(elem) "\b:ƒ\b

Re: Error while quoting

[Lars Magne Ingebrigtsen]

Nevin Kapur <nkapur@cs.caltech.edu> writes:

> Hmm...things seem a lot worse now.  I get the following error when I
> begin composing the response *and* when I try sending it.

Gah.  *Now* I've got it right.  I just know it.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Error while quoting

[Nevin Kapur]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Gah.  *Now* I've got it right.  I just know it.

Well, following up with quoting works now (though selections seems to
be ignored) but following up without quoting is broken.

-Nevin

Debugger entered--Lisp error: (wrong-number-of-arguments #<subr quote> 0)
  (quote)
  (gnus-inews-make-draft-meta-information "nntp+news.gmane.org:gmane.emacs.gnus.general" (quote))
  (lambda nil (gnus-inews-make-draft-meta-information
  "nntp+news.gmane.org:gmane.emacs.gnus.general" (quote)))()
...

Re: Error while quoting

[Lars Magne Ingebrigtsen]

Nevin Kapur <nkapur@cs.caltech.edu> writes:

> Well, following up with quoting works now (though selections seems to
> be ignored) but following up without quoting is broken.

Now I've tried all three combinations -- f, F and ### F.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Error while quoting

[Nevin Kapur]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Now I've tried all three combinations -- f, F and ### F.

All of these work without errors for me too.

Selections aren't working as though; even when one exists, the entire
message is quoted.  (Don't know if this is related to the earlier
errors.)

-Nevin

Quoting region in reply and transient-mark-mode (was: Error while quoting)

[Reiner Steib]

On Thu, May 20 2004, Nevin Kapur wrote:

> Selections aren't working as though; even when one exists, the entire
> message is quoted.

(My CVS is from yesterday, so I cannot check ATM.) I guess that his is
due to Jesper's change on 2004-05-18[1].  Now, you need to use
`transient-mark-mode' in order to quote the region.

Following the ChangeLog[1], it seems that (not) requiring
`transient-mark-mode' to quote the region changes once in a while.

Personally, I'd prefer not requiring `transient-mark-mode' as
explained on gnus-bugs[2] (see also the other messages in this
thread).  OTOH, requiring `transient-mark-mode' probably is more
consistent with the behavior of other Emacs commands,
e.g. `query-replace'.

(IMHO, when selection a region with the mouse without
`transient-mark-mode' should behave as if `transient-mark-mode' is
active, because the user _has_ a clear visible feedback about the
region.  IIRC this has been discussed on emacs-devel recently, but I
don't know if any change was implemented.)

Bye, Reiner.

[1]
,----[ lisp/ChangeLog* ]
| 2004-05-18  Jesper Harder  <harder@ifa.au.dk>
| 
| 	* gnus-art.el (gnus-article-followup-with-original)
| 	(gnus-article-reply-with-original): gnus-mark-active-p ->
| 	gnus-region-active-p.
| 
| 2002-01-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
| 
| 	* gnus-art.el (gnus-article-reply-with-original): Use
| 	`mark-active'.
| 
| 2002-01-11  ShengHuo ZHU  <zsh@cs.rochester.edu>
| 
| 	* gnus-art.el (article-display-x-face): Ditto.
| 	(gnus-article-reply-with-original): Use gnus-region-active-p.
| 	(gnus-article-followup-with-original): Ditto.
| 
| 2002-01-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
| 
| 	* gnus-art.el (gnus-article-reply-with-original): New command.
| 	(gnus-article-followup-with-original): New command.
`----

[2]
,----[ <news:v9pt99x3xi.fsf@marauder.physik.uni-ulm.de> ]
| From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de>
| Subject: Re: message-yank-original yanks only a part of the original message
| To: bugs@gnus.org
| Date: Wed May 12 13:47:37 2004 +0200
| Message-ID: <v9pt99x3xi.fsf@marauder.physik.uni-ulm.de>
| 
| On Wed, May 12 2004, Katsumi Yamaoka wrote:
| 
| > IMO, that gnus-summary-followup-with-original picks up a region
| > is useless if a region is invisible.
| 
| I don't like transient-mark-mode and I often use apply command on a
| region, after using set-mark-command, i.e. without a visible region.
| 
| (I mostly use Emacs 21.3; Emacs 21.3.50 has some improvements related
| to this: Transient Mark mode can be enabled temporarily using `C-SPC
| C-SPC'.)
`----
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/

Re: Quoting region in reply and transient-mark-mode

[Lars Magne Ingebrigtsen]

Reiner Steib <4.uce.03.r.s@nurfuerspam.de> writes:

> Following the ChangeLog[1], it seems that (not) requiring
> `transient-mark-mode' to quote the region changes once in a while.

Well, some of us (ie., me) really, really don't like
`transient-mark-mode', but still want selecting a region to do
something useful.  But I never use the "select-a-region" thing in the
article buffer anyway, so I have no strong feelings on this point... 

> (IMHO, when selection a region with the mouse without
> `transient-mark-mode' should behave as if `transient-mark-mode' is
> active, because the user _has_ a clear visible feedback about the
> region.

Yes, this sounds sensible. 

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Quoting region in reply and transient-mark-mode

[Jesper Harder]

Reiner Steib <4.uce.03.r.s@nurfuerspam.de> writes:

> (My CVS is from yesterday, so I cannot check ATM.) I guess that his is
> due to Jesper's change on 2004-05-18[1].  Now, you need to use
> `transient-mark-mode' in order to quote the region.
>
> Following the ChangeLog[1], it seems that (not) requiring
> `transient-mark-mode' to quote the region changes once in a while.

It's clearly broken if we use `gnus-mark-active-p' as the test.  So if
we want to enable it for non-transient-mark-mode we need to find some
other test -- I don't know which one.

-- 
Jesper Harder                                <http://purl.org/harder/>

Re: Quoting region in reply and transient-mark-mode

[Kai Grossjohann]

Reiner Steib <4.uce.03.r.s@nurfuerspam.de> writes:

> Personally, I'd prefer not requiring `transient-mark-mode' as
> explained on gnus-bugs[2] (see also the other messages in this
> thread).  OTOH, requiring `transient-mark-mode' probably is more
> consistent with the behavior of other Emacs commands,
> e.g. `query-replace'.

I think that on Emacs/CVS you can do C-SPC C-SPC instead of C-SPC to
start marking the region, to make it do like transient-mark-mode even
if transient-mark-mode is off.

It's a transient transient-mark-mode, so to speak...

Kai

Re: Quoting region in reply and transient-mark-mode

[Miles Bader]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> Well, some of us (ie., me) really, really don't like
> `transient-mark-mode', but still want selecting a region to do
> something useful.

Note that CVS versions of emacs have `temporary transient-mark-mode',
which allows you can turn on transient-mark-mode for just one command:
Hit C-SPC or C-@ or whatever you use to set the mark _twice_.  It's
really quite amazingly intuitive (I think the credit for the
idea/implementation goes to Kim Storm).

-Miles
-- 
=====
(^o^;
(()))
*This is the cute octopus virus, please copy it into your sig so it can spread.

Re: Quoting region in reply and transient-mark-mode

[Lars Magne Ingebrigtsen]

Kai Grossjohann <kai@emptydomain.de> writes:

> I think that on Emacs/CVS you can do C-SPC C-SPC instead of C-SPC to
> start marking the region, to make it do like transient-mark-mode even
> if transient-mark-mode is off.
>
> It's a transient transient-mark-mode, so to speak...

Heh.  Neat.  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen