From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/47233 Path: main.gmane.org!not-for-mail From: Raymond Scholz Newsgroups: gmane.emacs.gnus.general Subject: Cry for help: deuglify.el - moving stuff in the Article Buffer Date: Wed, 16 Oct 2002 21:37:51 +0200 Organization: =?UTF-8?Q?/=CB=8C=C9=94=CB=90=C9=A1=C9=99na=C9=AA=CB=88ze=C9=AA=CA=83n/?= Sender: owner-ding@hpc.uh.edu Message-ID: Reply-To: Raymond Scholz NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1034797745 14180 80.91.224.249 (16 Oct 2002 19:49:05 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 16 Oct 2002 19:49:05 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 181uA8-0003g9-00 for ; Wed, 16 Oct 2002 21:49:01 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 181u6j-0005hR-00; Wed, 16 Oct 2002 14:45:29 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 16 Oct 2002 14:46:10 -0500 (CDT) Original-Received: from epithumia.math.uh.edu (epithumia.math.uh.edu [129.7.128.2]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id OAA05887 for ; Wed, 16 Oct 2002 14:46:03 -0500 (CDT) Original-Received: (from tibbs@localhost) by epithumia.math.uh.edu (8.11.2/8.11.1) id g9GJjHP16656 for ding@hpc.uh.edu; Wed, 16 Oct 2002 14:45:17 -0500 Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id OAA05875 for ; Wed, 16 Oct 2002 14:38:40 -0500 (CDT) Original-Received: (qmail 18062 invoked by alias); 16 Oct 2002 19:37:54 -0000 Original-Received: (qmail 18057 invoked from network); 16 Oct 2002 19:37:53 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by gnus.org with SMTP; 16 Oct 2002 19:37:53 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 181uq9-0001vC-00 for ; Wed, 16 Oct 2002 22:32:25 +0200 Original-To: ding@gnus.org Original-Path: fly.verified.de!not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 117 Original-NNTP-Posting-Host: a92e8.pppool.de Original-X-Trace: quimby.gnus.org 1034800345 7387 213.6.146.232 (16 Oct 2002 20:32:25 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 16 Oct 2002 20:32:25 GMT X-Now-Playing: Nothing X-Face: %.!RBc`e*wW)84O*\)VdkC}mU5c2Zh$y~ZRA3K594g/jp_&5bx\Oyes!/jK~4<<%KlaPn^\ 0 is releated to this. I was trying to fix it, but now I'm completely stuck. The new function correctly calculated to two regions but transposing results in the deletion of the second region (to be moved to thw top of the article). Furthermore, the whole article header becomes a large button?! I've attached a test message which shows the effect. New functions: (defun gnus-outlook-rearrange-article (from-where) "Put the text from `from-where' to the end of buffer at the top of the article buffer." (save-excursion (let ((inhibit-read-only t) (cite-marks gnus-outlook-deuglify-cite-marks)) (gnus-with-article-buffer (setq tmp-point (point)) (beginning-of-buffer) (setq body-point-min (point)) (goto-char from-where) (beginning-of-line) (setq citation-min (point)) (goto-char tmp-point) (gnus-message 3 "%s-%s <-> %s-%s" citation-min (point-max) body-point-min (- citation-min 1)) (unless (search-forward-regexp (concat "^[ \t]*[^" cite-marks "\n]") nil t) (transpose-regions citation-min (point-max) body-point-min (- citation-min 1))))))) (defun gnus-article-outlook-deuglify-article () "Deuglify broken Outlook (Express) articles and redisplay." (interactive) (gnus-outlook-deuglify-article)) Cheers, Ray -- It's clear that whoever set up the font colorings for most programming modes has seen too many Peter Max posters, or did more acid than I did in the 60's. (Charles R. Martin in gnu.emacs.help) --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=test.msg Content-Transfer-Encoding: base64 UGF0aDogbmV3c3JlYWQyLmFyY29yLW9ubGluZS5uZXQhbmV3c3JlYWQuYXJjb3Itb25saW5lLm5l dCFuZXdzZmVlZC5hcmNvci1vbmxpbmUubmV0IW5ld3NmZWVkMDEuc3VsLnQtb25saW5lLmRlIXQt b25saW5lLmRlIXV1Y3AubXVlbnN0ZXIuZGUhbmV3cy1rb2UxLmRmbi5kZSFuZXdzLWZyYTEuZGZu LmRlIW5ld3MwLmRlLmNvbHQubmV0IWNvbHQubmV0IWRpc3Bvc2UubmV3cy5kZW1vbi5uZXQhZGVt b24hYnRuZXQtcGVlcjAhYnRuZXQtZmVlZDUhYnRuZXQhbmV3cy5idG9wZW53b3JsZC5jb20hbm90 LWZvci1tYWlsCkZyb206ICJDaHJpcyIgPGMubG9ja2VAd2hpY2gubmV0PgpOZXdzZ3JvdXBzOiBh bHQuY29tcC5wZXJpcGhzLm1haW5ib2FyZC5hc3VzClN1YmplY3Q6IFJlOiBQMkIgY3B1IFVwZ3Jh ZGUKRGF0ZTogU3VuLCAzMCBEZWMgMjAwMSAxMDoyMzowNiArMDAwMCAoVVRDKQpPcmdhbml6YXRp b246IEJUIE9wZW53b3JsZApNZXNzYWdlLUlEOiA8YTBtcHU5JG45ciQxQHBhcmlzLmJ0aW50ZXJu ZXQuY29tPgpSZWZlcmVuY2VzOiA8YTBrbzBkJDVhZSQxQGhlbGxlLmJ0aW50ZXJuZXQuY29tPiA8 M0MyRTQ4QTkuODA3MDEwMEBnbXguY2g+IDxnanNYNy40MDg0MyRYaDUuMjY0NzUyNUBuZXdzLnF1 aWNrbmV0Lm5sPiA8TSV0WDcuNDYxMCRhSDIuMjA0MjEwMkBydXRpLnZpc2kuY29tPgpOTlRQLVBv c3RpbmctSG9zdDogaG9zdDIxNy0zNC03Ni04MC5pbi1hZGRyLmJ0b3BlbndvcmxkLmNvbQpYLVRy YWNlOiBwYXJpcy5idGludGVybmV0LmNvbSAxMDA5NzA3Nzg2IDIzODY3IDIxNy4zNC43Ni44MCAo MzAgRGVjIDIwMDEgMTA6MjM6MDYgR01UKQpYLUNvbXBsYWludHMtVG86IHVzZW5ldEBwYXJpcy5i dGludGVybmV0LmNvbQpOTlRQLVBvc3RpbmctRGF0ZTogU3VuLCAzMCBEZWMgMjAwMSAxMDoyMzow NiArMDAwMCAoVVRDKQpYLU5ld3NyZWFkZXI6IE1pY3Jvc29mdCBPdXRsb29rIEV4cHJlc3MgNS41 MC40NTIyLjEyMDAKWC1NU01haWwtUHJpb3JpdHk6IE5vcm1hbApYLVByaW9yaXR5OiAzClgtTWlt ZU9MRTogUHJvZHVjZWQgQnkgTWljcm9zb2Z0IE1pbWVPTEUgVjUuNTAuNDUyMi4xMjAwClhyZWY6 IG1kZTEuaG9tZSBtYWlsLnpvbzozMgpMaW5lczogNzMKClRoYW5rcyBmb3IgYWxsIHRoZSBhZHZp Y2UgYW5kIHN1Z2dlc3Rpb25zLgpBcyBteSBQMkIgcmV2IDEuMDIgaXMgbGltaXRlZCB0byBhbiA4 WCBGU0IgbXVsdGlwbGllciBJIGFzc3VtZSBteSBtYXggaXMKODAwbWh6IGFuZCBJIGNhbm5vdCB1 c2UgdGhlIDFnaHogY3B1LgpBcyBJIHNhaWQgYmVmb3JlLCBJIGFtIG5ldyB0byB0aGlzIGdhbWUg c28gaWYgSSBoYXZlIG1pc3NlZCBzb21ldGhpbmcsCnBsZWFzZSBhZHZpc2UKQ2hyaXMKCgoiRXJp Y2sgT25kaWNoIiA8bWFzdGFlbWFuQGhvdG1haWwuY29tPiB3cm90ZSBpbiBtZXNzYWdlCm5ld3M6 TSV0WDcuNDYxMCRhSDIuMjA0MjEwMkBydXRpLnZpc2kuY29tLi4uCj4gQ2hlY2sgb3V0IGhlcmUg aWYgeW91IGhhdmUgYW4gb2xkZXIgc2xvY2tldCBhbmQgc29tZSBzb2xkZXJpbmcgc2tpbGxzLgo+ IE1pZ2h0IGJlIHdvcnRoIHdoaWxlLiAgTWFrZXMgaXQgd29yayB3aXRoIHRoZSBmbGlwIGNoaXBz Lgo+Cj4gaHR0cDovL3d3dzYudG9tc2hhcmR3YXJlLmNvbS9jcHUvMDBxMS8wMDAyMjkvaW5kZXgu aHRtbAo+Cj4gQW5vdGhlciBvbmUgdGhhdCBpcyBiYXNlZCBvbiB0aGUgc2FtZSB0aGluZyBidXQg cHJvYmFibHkgYSBiZXR0ZXIgd2F5IG9mCj4gZG9pbmcgaXQuCj4KPiBodHRwOi8vd3d3LjNmZWV0 dW5kZXIuY29tL2tyaWNrLzM3MG1vZC8KPgo+IE5ldmVyIHRyaWVkIGl0IG15c2VsZi4gIEJlc3Qg b2YgbHVjay4KPgo+Cj4gIk5pZWxzIGVuIEN5bnRoaWEgS3VuaXMiIDxuaWVscy1jeW50aGlhQHNv bmVyYW1haWwubmw+IHdyb3RlIGluIG1lc3NhZ2UKPiBuZXdzOmdqc1g3LjQwODQzJFhoNS4yNjQ3 NTI1QG5ld3MucXVpY2tuZXQubmwuLi4KPiA+Cj4gPiBpIGhhdmUgYSBQMkItUyByZXYuIDEuMDIg YW5kIGkgdHJpZWQgYSBDZWxlcm9uIDFHSHogdXNpbmcgYSBBc3VzIFMzNzAKPiBEL0RVQUwKPiA+ IENQVSBDQVJEIGFuZCBmaXhlZCB0aGUgdm9sdGFnZSBhdCAxLjggVm9sdHMuCj4gPgo+ID4gVGhp cyBkb2VzIG5vdCB3b3JrIGluIG15IFAyQi4gVGhlIG1hY2hpbmUgZG9lcyBub3QgYm9vdCB1cC4K PiA+Cj4gPiBhbnkgc3VnZ3Vlc3Rpb25zPwo+ID4KPiA+IGdyZWV0aW5ncywKPiA+Cj4gPiBOaWVs cyBLdW5pcwo+ID4KPiA+Cj4gPiAic2NoZWlkZWdnZXIiIDxyc2NoZWlkZWdnZXJAZ214LmNoPiB3 cm90ZSBpbiBtZXNzYWdlCj4gPiBuZXdzOjNDMkU0OEE5LjgwNzAxMDBAZ214LmNoLi4uCj4gPiA+ IENocmlzIHdyb3RlOgo+ID4gPgo+ID4gPiA+IEkgaGF2ZSBBU1VTIFAyQiByZXYgMS4wMiB3aXRo IFBJSSA0MDBtaHogMTAwRlNCLiBXaGF0IGlzIGJlc3QgY3B1Cj4gPiB1cGdyYWRlIEkKPiA+ID4g PiBjYW4gaG9wZSBmb3IgPyBXb3VsZCBhIFNFQ0MyIFNsb3QgMSBQSUlJICB3b3JrIGluIHRoaXMg b2xkIFNsb3QgMQo+ID4gbSdib2FyZD8KPiA+ID4gPiBUaGFua3MgZm9yIGFueSBoZWxwLSBJIGFt IG5ldyB0byB0aGlzCj4gPiA+ID4gQ2hyaXMKPiA+ID4gPgo+ID4gPgo+ID4gPgo+ID4gPiBObywg YSBzbG90MSBjcHUgd2lsbCBub3Qgd29yaywgcmVnYXJkbGVzcyB3aGF0IG90aGVyIHBlb3BsZSBz YWlkIQo+ID4gPiAodGhhdCdzIG5vdCBleGFjdGx5IHRydWUsIHRoZSBvbGQgKGthdG1haSkgUElJ SSB3aXRoIDUxMktCIGNhY2hlCj4gPiA+IChhdmFpbGFibGUgdXAgdG8gNjAwTWh6KSB3aWxsIHdv cmsgZmluZS4pCj4gPiA+IFlvdSBuZWVkIGEgZmNwZ2EgKGNvcHBlcm1pbmUpIGNvbXBhdGlibGUg c2xvdGtldCBhZGFwdGVyIHRoYXQgaGFzCj4gPiA+IHZvbHRhZ2UgYWRqdXN0bWVudCBqdW1wZXJz IChsaWtlIHRoZSBhc3VzIHMzNzAtZGwpLCBhbmQgeW91ciBib2FyZAp3aWxsCj4gPiA+IHRha2Ug YWxsIDEwME1oeiBGU0IgY3B1cyB1cCB0byAxIEdoeiAoY2VsZXJvbiBvciBQSUlJKSwgYnV0IG5v dCB0aGUKPiA+ID4gMS4xR2h6IHZlcnNpb25zIChiaW9zIGJ1ZykgYW5kIG5vdGhpbmcgZmFzdGVy IHRoYW4gMS4xR2h6IG5laXRoZXIgKHRobwpzZQo+ID4gPiBhcmUgdHVhbGF0aW5zLCBub3QgY29t cGF0aWJsZSBhdCBhbGwpLgo+ID4gPiBVbmZvcnR1bmF0ZWx5LCBzbG90a2V0cyBzZWVtIHRvIGJl IGhhcmQgdG8gZmluZCBub3dhZGF5cy4uLgo+ID4gPiBZb3UnbGwgcHJvYmFibHkgaGF2ZSB0byBs b29rIG9uIGViYXkuCj4gPiA+Cj4gPiA+IFJvbGFuZAo+ID4gPgo+ID4KPiA+Cj4KPgoKCgo= --=-=-=--