From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68547 Path: news.gmane.org!not-for-mail From: Dave Goldberg Newsgroups: gmane.emacs.gnus.general Subject: Re: supercite Outlook top-quoting style Date: Fri, 15 May 2009 13:03:41 -0400 Message-ID: <84tz3mxpqq.fsf@incoming.verizon.net> References: <86fxfqkrqq.fsf@lifelogs.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1242407244 29136 80.91.229.12 (15 May 2009 17:07:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 15 May 2009 17:07:24 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M16978@lists.math.uh.edu Fri May 15 19:07:16 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1M50sO-0005Lf-Ih for ding-account@gmane.org; Fri, 15 May 2009 19:07:16 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1M50rG-0000cM-4G; Fri, 15 May 2009 12:06:06 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1M50rE-0000c3-IY for ding@lists.math.uh.edu; Fri, 15 May 2009 12:06:04 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1M50r8-0000wH-CE for ding@lists.math.uh.edu; Fri, 15 May 2009 12:06:04 -0500 Original-Received: from vms173019pub.verizon.net ([206.46.173.19]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1M50ra-0006SY-00 for ; Fri, 15 May 2009 19:06:26 +0200 Original-Received: from dsg-laptop.verizon.net ([173.48.206.151]) by vms173019.mailsrvcs.net (Sun Java(tm) System Messaging Server 6.3-7.04 (built Sep 26 2008; 32bit)) with ESMTPA id <0KJP00GFZ3DG8USM@vms173019.mailsrvcs.net> for ding@gnus.org; Fri, 15 May 2009 12:03:17 -0500 (CDT) X-Face: W!bie|rYVd43O:2CkHTb*~s5}Yzx30X<@6Tq_bnP56Hp!xX4sVl4tgYRirjRcke\wfY!JJ9 i?]VIUJicJzq2\!3%7$5R%wi!R[.]Va97q In-reply-to: <86fxfqkrqq.fsf@lifelogs.com> (Ted Zlatanov's message of "Thu, 30 Apr 2009 12:53:33 -0400") User-Agent: Gnus/5.110011 (No Gnus v0.11) XEmacs/21.4.22 (linux) X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68547 Archived-At: --=-=-= > 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. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline (defun dsg-sc-lookout () "-----Original Message----- Headers..." (let* ((from (sc-mail-field "from")) (date (sc-mail-field "date")) (subj (sc-mail-field "subject")) (to (sc-mail-field "to")) (cc (sc-mail-field "cc")) (message-cite-reply-above t) (sc-nested-citation-p t) (sc-citation-delimiter "") (sc-citation-leader "") (sc-citation-separator "")) (insert "-----Original Message-----\n" (if (not (string= from "")) (concat "From: " from "\n") "") (if (not (string= date "")) (concat "Sent: " date "\n") "") (if (not (string= subj "")) (concat "Subject: " subj "\n") "") (if (not (string= to "")) (concat "To: " to "\n") "") (if (not (string= cc "")) (concat "Cc: " cc "\n") "") "\n"))) (setq sc-rewrite-header-list (nconc (list (list 'dsg-sc-lookout)) sc-rewrite-header-list))) --=-=-= Content-Disposition: inline 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 --=-=-=--