"widening" a reply

"widening" a reply

[Matt McClure]

In the summary buffer, I can do R to reply to the author, or F to do a
wide reply to all recipients of the original article.  Frequently, I
want to do F, but I do R by mistake.

Is there a way to widen the reply I'm composing?

-- 
Matt
http://www.faradic.net/~mmcclure/

Re: "widening" a reply

[Lars Magne Ingebrigtsen]

Matt McClure <matthew.mcclure.es.99@aya.yale.edu> writes:

> In the summary buffer, I can do R to reply to the author, or F to do a
> wide reply to all recipients of the original article.  Frequently, I
> want to do F, but I do R by mistake.
> 
> Is there a way to widen the reply I'm composing?

Nope.  My personal solution is to just use `F' all the time.  I almost 
never want the `R'.

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

Re: "widening" a reply

[Hrvoje Niksic]

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

> Matt McClure <matthew.mcclure.es.99@aya.yale.edu> writes:
> 
> > In the summary buffer, I can do R to reply to the author, or F to do a
> > wide reply to all recipients of the original article.  Frequently, I
> > want to do F, but I do R by mistake.
> > 
> > Is there a way to widen the reply I'm composing?
> 
> Nope.  My personal solution is to just use `F' all the time.  I almost 
> never want the `R'.

But there's still need for the feature.  For instance, in groups with
`to-address', I press `F' and start composing.  Then I realize that
the original message was Cc'ed to people not on the list.  At that
moment I'd like to "widen" my reply, too.  Something like `C-c C-t',
but wide.

I need this often and it would be awfully nice to have it.  What do
you think?

Re: "widening" a reply

[Lars Magne Ingebrigtsen]

Hrvoje Niksic <hniksic@iskon.hr> writes:

> But there's still need for the feature.  For instance, in groups with
> `to-address', I press `F' and start composing.  Then I realize that
> the original message was Cc'ed to people not on the list.  At that
> moment I'd like to "widen" my reply, too.  Something like `C-c C-t',
> but wide.
> 
> I need this often and it would be awfully nice to have it.  What do
> you think?

A sort of `message-insert-wide-to'?  Sure; sounds good to me.

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

Re: "widening" a reply

[Hrvoje Niksic]

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

> > I need this often and it would be awfully nice to have it.  What
> > do you think?
> 
> A sort of `message-insert-wide-to'?  Sure; sounds good to me.

Will you be adding it?  I have no idea where to start.

Re: "widening" a reply

[Matt McClure]

On Fri Dec 03 1999, 03:10, Hrvoje Niksic <hniksic@iskon.hr> wrote:

> > A sort of `message-insert-wide-to'?  Sure; sounds good to me.
> 
> Will you be adding it?  I have no idea where to start.

Here's a quick and dirty version that widens the reply.  I patched
together code from message-reply and from message-insert-to.  It could
probably be a lot cleaner, but at least it works (or seems to so far
anyway).

   (defun message-insert-wide-to ()
     "Insert a Cc header which includes all recipients of the original article."
     (interactive)
     (let (to cc follow-to)
       (if (message-functionp message-wide-reply-to-function)
           (setq follow-to
                 (funcall message-wide-reply-to-function)))

       (setq to (message-fetch-reply-field "to")
             cc (message-fetch-reply-field "cc"))

       (unless follow-to
         (let (ccalist)
           (save-excursion
             (message-set-work-buffer)
             (insert (if to (concat (if (bolp) "" ", ") to "") ""))
             (insert (if cc (concat (if (bolp) "" ", ") cc) ""))
             (goto-char (point-min))
             (while (re-search-forward "[ \t]+" nil t)
               (replace-match " " t t))
             ;; Remove addresses that match `rmail-dont-reply-to-names'.
             (let ((rmail-dont-reply-to-names message-dont-reply-to-names))
               (insert (prog1 (rmail-dont-reply-to (buffer-string))
                         (erase-buffer))))
             (goto-char (point-min))
             (setq ccalist
                   (mapcar
                    (lambda (addr)
                      (cons (mail-strip-quoted-names addr) addr))
                    (message-tokenize-header (buffer-string))))
             (let ((s ccalist))
               (while s
                 (setq ccalist (delq (assoc (car (pop s)) s) ccalist)))))
           (setq follow-to nil)
           (when ccalist
             (let ((ccs (cons 'Cc (mapconcat
                                   (lambda (addr) (cdr addr)) ccalist ", "))))
               (when (string-match "^ +" (cdr ccs))
                 (setcdr ccs (substring (cdr ccs) (match-end 0))))
               (push ccs follow-to)))))

       (setq follow-to (cdar follow-to))

       (when (and (message-goto-cc)
                  follow-to
                  (not (string-match "\\` *\\'" follow-to)))
         (insert ", "))
       (insert follow-to)))

-- 
Matt
http://www.faradic.net/~mmcclure/

Re: "widening" a reply

[Hrvoje Niksic]

Matt McClure <matthew.mcclure.es.99@aya.yale.edu> writes:

> On Fri Dec 03 1999, 03:10, Hrvoje Niksic <hniksic@iskon.hr> wrote:
> 
> > > A sort of `message-insert-wide-to'?  Sure; sounds good to me.
> > 
> > Will you be adding it?  I have no idea where to start.
> 
> Here's a quick and dirty version that widens the reply.

It doesn't seem to work for me.  I evaluated your function definition,
and now I'm composing the response.  When I type
`M-x message-insert-wide-to', I only get `Cc: ding@gnus.org' added.  A
real wide reply should also contain `To: Matt McClure <...>', because
you didn't use Mail-Copies-To or anything like that.

Re: "widening" a reply

[Matt McClure]

On Fri Dec 03 1999, 12:14, Hrvoje Niksic <hniksic@iskon.hr> wrote:

> Matt McClure <matthew.mcclure.es.99@aya.yale.edu> writes:
> 
> > On Fri Dec 03 1999, 03:10, Hrvoje Niksic <hniksic@iskon.hr> wrote:
> > 
> > > > A sort of `message-insert-wide-to'?  Sure; sounds good to me.
> > > 
> > > Will you be adding it?  I have no idea where to start.
> > 
> > Here's a quick and dirty version that widens the reply.
> 
> It doesn't seem to work for me.  I evaluated your function definition,
> and now I'm composing the response.  When I type
> `M-x message-insert-wide-to', I only get `Cc: ding@gnus.org' added.  A
> real wide reply should also contain `To: Matt McClure <...>', because
> you didn't use Mail-Copies-To or anything like that.

I left that to be handled by message-insert-to.  Otherwise, replying to
a mail message, and subsequently doing message-insert-wide-to would
result in two copies of the original author's address in the To: header.

-- 
Matt
http://www.faradic.net/~mmcclure/

Re: "widening" a reply

[Hrvoje Niksic]

Matt McClure <matthew.mcclure.es.99@aya.yale.edu> writes:

> > It doesn't seem to work for me.  I evaluated your function
> > definition, and now I'm composing the response.  When I type `M-x
> > message-insert-wide-to', I only get `Cc: ding@gnus.org' added.  A
> > real wide reply should also contain `To: Matt McClure <...>',
> > because you didn't use Mail-Copies-To or anything like that.
> 
> I left that to be handled by message-insert-to.  Otherwise, replying
> to a mail message, and subsequently doing message-insert-wide-to
> would result in two copies of the original author's address in the
> To: header.

It would if that's what you were doing.  What I need the feature for
is when I press `F' in a group with `to-address', to be able to change
my mind to `S w' later.

Re: "widening" a reply

[Matt McClure]

On Sat Dec 04 1999, 12:00, Hrvoje Niksic <hniksic@iskon.hr> wrote:

> > I left that to be handled by message-insert-to.  Otherwise, replying
> > to a mail message, and subsequently doing message-insert-wide-to
> > would result in two copies of the original author's address in the
> > To: header.
> 
> It would if that's what you were doing.  What I need the feature for
> is when I press `F' in a group with `to-address', to be able to change
> my mind to `S w' later.

Not sure about that one since I never do that.  But I don't think it
should be too hard to take the code that I posted, and patch it some
more with the relevant parts of message-reply.

-- 
Matt
http://www.faradic.net/~mmcclure/

Re: "widening" a reply

[Lars Magne Ingebrigtsen]

Hrvoje Niksic <hniksic@iskon.hr> writes:

> > A sort of `message-insert-wide-to'?  Sure; sounds good to me.
> 
> Will you be adding it?  I have no idea where to start.

I've now added it.  Should be in cvs in a few minutes...

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

Re: "widening" a reply

[Lars Magne Ingebrigtsen]

Hrvoje Niksic <hniksic@iskon.hr> writes:

> Will you be adding it?  I have no idea where to start.

Oh -- what keystroke should it be put on?  `C-c C-w' would have been
logical, but it's already taken...

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

Re: "widening" a reply

[Kai Großjohann]

FWIW, I think it would be nice if it was (easily) possible to edit the
To and Cc headers of messages.  Like removing a mail address from the
headers.  How about a command message-remove-recipient which (1)
parses the To and Cc headers of the current buffers, (2) offers to
input an address (with completion), then (3) removes that address from
the respective header?

kai
-- 
A preposition is not a good thing to end a sentence with.