Hiding of -----original message----- citations?

Hiding of -----original message----- citations?

[Andreas Fuchs]

Is there a way to accomplish this? IIRC, the format for this sick(IMO)
way of quoting is:
-----original message------
followed by the message that is replied to, followed by (most often)
the signature of the quotee, which is then followed by the signature
of the quoter.

Is gnus-cite the right place to {search|implement} that functionality
in?

kind regards,
-- 
Andreas Stefan Fuchs                             in Real Life aka
asf@acm.org, asfuchs@gmx.at, asf@ycom.at         in NNTP and SMTP,
antifuchs                                        in IRCNet and
Relf Herbstfresser, Male 1/2 Elf Priest          in AD&D

Re: Hiding of -----original message----- citations?

[Andreas Fuchs]

On 22 Mar 2000 21:48:52 +0100, Jonas Steverud <d4jonas@dtek.chalmers.se> said:
> I don't know how and where to implement this but a really nice feature
> would be to swicth order, remove the quoted .sig and do some other
> cleaning of the article.

Yes, but this is highly non-trivial. If I understood gnus's washing
methods correctly, the message is parsed on a per-line basis, which
means that with a format like this:

Message
^original-messsage-marker$
Message
^sig-delimiter$
Signature
^often-wrong-sig-delimiter$
Signature

and Outlook, which, IIRC, does not even use quote-prefixes (> or
similar) by default, you stand no chance to actually get it right,
because it is just not clear which line (after the
original-message-marker) belongs to which message.

> Inserting a text before the message refering the poster to RFC1855
> (the netiquette) and
> <URL:http://www.math.fu-berlin.de/~guckes/message/editing.html> would
> also be nice.

Phew. I was not making myself clear in the first place: I was talking
about hiding it only when reading the article, not when Replying to
it. But it would be practical to also have it when replying and
following up.

(BTW: I have found http://learn.to/quote (german only, sorry) highly
helpful in this matter, it is not only easier to type than the above
URL, it also gets the message across[1] (-:)

> /Jonas, who has battled many wars against the lusers.

I trust you were victorious (-8

[1] although someone really should translate it. (I can't volunteer,
    too much work in school at the moment)[2]
[2] BTW, is there a way to get xemacs's footnote-mode working in
    Gnumacs? I have tried the 1.12 version in the packages/ directory,
    but it crashed emacs (abort signal) when trying to rotate
    styles. Inserting footnotes did not work, too: it tried to access
    a negative list index (?). Oh well, inserting these beasts
    manually works too (-:

kind regards,
-- 
Andreas Stefan Fuchs                             in Real Life aka
asf@acm.org, asfuchs@gmx.at, asf@ycom.at         in NNTP and SMTP,
antifuchs                                        in IRCNet and
Relf Herbstfresser, Male 1/2 Elf Priest          in AD&D

Re: Hiding of -----original message----- citations?

[Hannu Koivisto]

Jonas Steverud <d4jonas@dtek.chalmers.se> writes:

| > [2] BTW, is there a way to get xemacs's footnote-mode working in
| >     Gnumacs?
| 
| Someone (forgot who) posted a inoffical new footnote.el on
| gnu.emacs.sources with some quite nice features¹. Search the archives
| (if you don't find it I have a copy to spare).

I guess I'm to be blamed on that :)  Since that posting, I have
submitted it to xemacs developers / maintainer and he promised to
integrate my changes, but I don't know whether that has happened
already.  I fixed one bug before I sent my changes to xemacs
developers but after I sent my version to gnu.emacs.sources and
Jonas, so it may be better that anyone who wants a copy before it
appears in XEmacs sends a request to me.

-- 
Hannu

Re: Hiding of -----original message----- citations?

[Paul Stevenson]

Andreas Fuchs <asf@acm.org> writes:

> Is there a way to accomplish this? IIRC, the format for this sick(IMO)
> way of quoting is:
> -----original message------
> followed by the message that is replied to, followed by (most often)
> the signature of the quotee, which is then followed by the signature
> of the quoter.
> 
> Is gnus-cite the right place to {search|implement} that functionality
> in?
> 
> kind regards,

I wrote a silly function which will take a mail posted by Internet Mail
Service or Outlook which quotes in the above way, with the reply before
the original message, and other nonsense, and reformats it in the proper
way.

so a mail whose body looks like:


.-----------------------------------------------------------------------
|
| 5UR3 Th1Ng d00d!!!!!1!
|
|-----Original Message-----
|From: A Person [mailto:aperson@hotmail.com]
|Sent: Friday, March 24, 2000 4:11 PM
|To: me@tralala.com
|Subject: hello
|
|Please reply to this message in as annoying a manner as you can
.______________________________________________________________________


becomes

.----------------------------------------------------------------------
|aperson wrote:
|>
|> Please reply to this message in as annoying a manner as you can
|>
|
|5UR3 Th1Ng d00d!!!!!1!
._______________________________________________________________________

Unfortunately the function is very bad and clobbers the mark and puts
things in the kill ring and so-on, so ought to be majorly tidied up, but
it may be of some use to someone. Here it is.

(defun un-stupify-article ()
  (interactive)
  (save-excursion
    (set-buffer gnus-article-buffer)
    (message-narrow-to-head)
    (goto-char (point-max))
    (widen)
    (toggle-read-only)
    (let ((here (point))
          (un-stup-author)
          (nlines)
          (counter))
      (if (re-search-forward "-----Original Message-----")
          (progn
            ;; first really quote quoted bits
            (save-excursion
              (re-search-forward "^Subject:")
              (forward-line)
              (delete-blank-lines)
              (save-excursion
		(let ((ici (point)))
                  (goto-char (point-max))
                  (setq nlines (count-lines ici (point)))))
              (setq counter 1)
              (while (< counter nlines)
		(beginning-of-line)
		(insert "> ")
		(forward-line)
		(setq counter (+ counter 1))))
            (beginning-of-line)
            (kill-region here (point))
            (widen)
            (goto-char (point-max))
            (yank)
            (goto-char (point-min))
            (re-search-forward "-----Original Message-----")
            (beginning-of-line)
            (kill-line)
            (kill-line)
            (re-search-forward "From: ")
            (let ((ici (point)))
              (re-search-forward "@")
              (narrow-to-region ici (point))
              (setq un-stup-author (current-word))
              (widen))
            (beginning-of-line)(kill-line)
            (insert (concat "\n" un-stup-author " wrote:"))
            (forward-line)
            (let ((ici (point)))
              (re-search-forward "^Subj")
              (end-of-line)
              (kill-region ici (point)))
            )))
      (toggle-read-only)))

Re: Hiding of -----original message----- citations?

[Paul Stevenson]

Jonas Steverud <d4jonas@dtek.chalmers.se> writes:

> Paul Stevenson <spaul@icx.net> writes:
> 
> > I wrote a silly function which will take a mail posted by Internet Mail
> > Service or Outlook which quotes in the above way, with the reply before
> > the original message, and other nonsense, and reformats it in the proper
> > way.
> 
> Nice, but it contained some bugs. (Surprised?) 

Not at all.

> Here's a patch.

excellent! thanks.

Re: Hiding of -----original message----- citations?

[Lars Magne Ingebrigtsen]

Paul Stevenson <spaul@icx.net> writes:

> I wrote a silly function which will take a mail posted by Internet Mail
> Service or Outlook which quotes in the above way, with the reply before
> the original message, and other nonsense, and reformats it in the proper
> way.

I think this would be a very nice article washing command to have.
Could you clean it up and submit a patch?

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