From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58338 Path: main.gmane.org!not-for-mail From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de> Newsgroups: gmane.emacs.gnus.general Subject: Re: Outlook citation frobbing Date: Tue, 24 Aug 2004 18:53:29 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Sender: ding-owner@lists.math.uh.edu Message-ID: References: <86y8k6gfew.fsf@ketchup.de.uu.net> Reply-To: Reiner Steib NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1093366482 26530 80.91.224.253 (24 Aug 2004 16:54:42 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 24 Aug 2004 16:54:42 +0000 (UTC) Original-X-From: ding-owner+M6879@lists.math.uh.edu Tue Aug 24 18:54:31 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1BzeZ5-0001sw-00 for ; Tue, 24 Aug 2004 18:54:31 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1BzeYR-0007y3-00; Tue, 24 Aug 2004 11:53:51 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1BzeYJ-0007xx-00 for ding@lists.math.uh.edu; Tue, 24 Aug 2004 11:53:43 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1BzeYJ-0005Dd-OP for ding@lists.math.uh.edu; Tue, 24 Aug 2004 11:53:43 -0500 Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249]) by justine.libertine.org (Postfix) with ESMTP id B85A33A01F4 for ; Tue, 24 Aug 2004 11:53:42 -0500 (CDT) Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1BzeYH-0000Cs-00 for ; Tue, 24 Aug 2004 18:53:41 +0200 Original-Received: from lumberjack.physik.uni-ulm.de ([134.60.10.173]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 24 Aug 2004 18:53:41 +0200 Original-Received: from Reiner.Steib by lumberjack.physik.uni-ulm.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 24 Aug 2004 18:53:41 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-To: ding@gnus.org Original-Lines: 56 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: lumberjack.physik.uni-ulm.de X-Face: 3Phac&+dw=IZHjhua]bp}LH<*p{qzj8u+" to > every line below the first "-- original message ...", and two ">" to > every line below the second "-- original message ...", and so on. > > Then I could at least just copy and paste stuff and wouldn't have to > worry about adding ">", too. Adding... (let ((comment-start ">") (comment-empty-lines t)) (comment-region BEG END)) ... somewhere in `gnus-outlook-rearrange-article' should do the trick, I think. The boring part is to find the correct value of BEG and END. The following doesn't work correctly yet: (defun gnus-outlook-rearrange-article (attr-start) "Put the text from ATTR-START to the end of buffer at the top of the article buffer." (let ((inhibit-read-only t) (cite-marks gnus-outlook-deuglify-cite-marks)) (gnus-with-article-buffer (article-goto-body) ;; article does not start with attribution (unless (= (point) attr-start) (gnus-kill-all-overlays) (let ((cur (point)) ;; before signature or end of buffer (to (if (gnus-article-search-signature) (point) (point-max))) diff) (setq diff (- to cur)) ;; handle the case where the full quote is below the ;; signature (transpose-regions cur attr-start attr-start to) (let ((comment-start ">") (comment-empty-lines t)) (comment-region (save-excursion (article-goto-body) (next-line) (point)) diff))))))) Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/