Re: supercite Outlook top-quoting style

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Thu, Apr 30 2009, Ted Zlatanov wrote:

> I looked at supercite.el and there's no pre-defined top-quoting style
> like this.  I looked at the Emacs Wiki and all over, nothing.
>
> (my cursor here)
> -----------------------
> On (Date) (Name) wrote:
>
> (original message, unquoted)


I'd expect you can do this without Supercite, using
the un-advertised variable `message-cite-reply-above':

,----[ <f1> v message-cite-reply-above RET ]
| message-cite-reply-above is a variable defined in `message.el'.
| Its value is nil
| 
| Documentation:
| If non-nil, start own text above the quote.
| 
| Note: Top posting is bad netiquette.  Don't use it unless you
| really must.  You probably want to set variable only for specific
| groups, e.g. using `gnus-posting-styles':
| 
|   (eval (set (make-local-variable 'message-cite-reply-above) t))
| 
| This variable has no effect in news postings.
`----

Something like...

--8<---------------cut here---------------start------------->8---
(setq message-citation-line-function 'message-insert-formatted-citation-line)
(setq message-cite-reply-above t)
(setq message-yank-prefix ""
      message-yank-cited-prefix ""
      message-yank-empty-prefix "")
(setq message-citation-line-format
      "-----------------------
On %a, %b %d %Y, %N wrote:
")

;; If you even want it more Outlook-ish:

(setq message-citation-line-format
      "\
-----Original Message-----
From: %f
Sent: %A, %B %d, %Y %H:%M %Z
")
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/