supercite Outlook top-quoting style

supercite Outlook top-quoting style

[Ted Zlatanov]

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 realize this is unpleasant.  No, that's not the right word, but
children may be reading.  Anyhow, I need to do this quoting for some
people at work, so I was wondering if someone has done this already.  If
not I'll write it as a custom Supercite style.

Thanks
Ted

Re: supercite Outlook top-quoting style

[Reiner Steib]

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/

Re: supercite Outlook top-quoting style

[Ted Zlatanov]

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

Re: supercite Outlook top-quoting style

[Dave Goldberg]

[-- Attachment #1: Type: text/plain, Size: 672 bytes --]


> 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 realize this is unpleasant.  No, that's not the right word, but
> children may be reading.  Anyhow, I need to do this quoting for some
> people at work, so I was wondering if someone has done this already.  If
> not I'll write it as a custom Supercite style.

I've been away from the list for a while.  Not sure if you got an
answer that didn't involve not using supercite.  I've been using the
following for some time now.


[-- Attachment #2: Type: application/emacs-lisp, Size: 860 bytes --]

[-- Attachment #3: Type: text/plain, Size: 378 bytes --]


Actually using this in a message is a somewhat manual process but I do
it rarely enough that doesn't bother me much.  Essentially it's yank the
message, selected it and sc-uncite to remove the >'s, move to the top
of it, electric insert the reference in the above format and then
message-goto-body to start writing from the top.


-- 
Dave Goldberg
david.goldberg6@verizon.net