Re: supercite Outlook top-quoting style

[Ted Zlatanov <tzz@lifelogs.com>]

On Fri, 01 May 2009 12:48:37 +0200 Reiner Steib <reinersteib+gmane@imap.cc> wrote: 

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

Here is what I wrote in the end.  I don't think I need all of it, but
it's good in case I go back to message-cite-original as my citation
function.

;; proper
(defun sc-style-me ()
  (interactive)
  (setq 
   message-cite-function 'sc-cite-original
   message-citation-line-function 'message-insert-citation-line
   message-cite-reply-above nil
   message-yank-prefix "> "
   message-yank-cited-prefix "> "
   message-yank-empty-prefix ">"
   message-citation-line-format
   "On %a, %b %d %Y, %N wrote:\n"))

;; outlooky
(defun sc-style-outlook ()
  (interactive)
  (setq
   message-cite-function 'message-cite-original
   message-citation-line-function 'message-insert-formatted-citation-line
   message-cite-reply-above 'is-evil
   message-yank-prefix ""
   message-yank-cited-prefix ""
   message-yank-empty-prefix ""
   message-citation-line-format
   "\n\n-----------------------\nOn %a, %b %d %Y, %N wrote:\n"))

I was hoping to use as many dashes as the line below, so the last '-'
would line up with the ':' below, but that's not easy so I'll live with
the other approach.

Thanks!
Ted