From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12549 Path: main.gmane.org!not-for-mail From: dsg@linus.mitre.org (David S. Goldberg) Newsgroups: gmane.emacs.gnus.general Subject: long-to boring header Date: 07 Oct 1997 13:39:36 -0400 Message-ID: Reply-To: dsg@mitre.org (David S. Goldberg) NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: multipart/mixed; boundary="Multipart_Tue_Oct__7_13:39:36_1997-1" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035152066 4379 80.91.224.250 (20 Oct 2002 22:14:26 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:14:26 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.7/8.8.7) with ESMTP id LAA28338 for ; Tue, 7 Oct 1997 11:45:51 -0700 Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with SMTP id NAA25166 for ; Tue, 7 Oct 1997 13:38:32 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Tue, 7 Oct 1997 19:39:53 +0200 Original-Received: (qmail 13920 invoked by uid 504); 7 Oct 1997 17:39:47 -0000 Original-Received: (qmail 13917 invoked from network); 7 Oct 1997 17:39:45 -0000 Original-Received: from linus.mitre.org (129.83.10.1) by claymore.vcinet.com with SMTP; 7 Oct 1997 17:39:45 -0000 Original-Received: from blackbird.mitre.org (blackbird.mitre.org [129.83.65.14]) by linus.mitre.org (8.8.6/8.8.6) with ESMTP id NAA17249 for ; Tue, 7 Oct 1997 13:39:39 -0400 (EDT) Original-Received: (from dsg@localhost) by blackbird.mitre.org (8.8.6/8.8.6) id NAA29527; Tue, 7 Oct 1997 13:39:38 -0400 (EDT) Original-To: The Gnus Mailing List X-Face: GUaHTH@nS>[7,ME@-gYZ4#Wl{z"99k@[[Y8AcP0x1paqu.,z9,XSV1WI>{q3f6^e5(zrit <4fV&VHhmE`uidRqtmG27;si9&r;#KSF~E#$%W8w(xdp)H4tW=\2XOk~3=@oGqqpj;m4xf Ow;y26396&,34@9#~4;@*S;E0cq"LM9N(us4P%F(Nxis'Vvfm9?KufH;:Q$dMa-QWGLR&K d0`LJZE8xb*>^yN>b]_NcU:E=Zn\1=#/(OS2 Original-Lines: 63 X-Mailer: Quassia Gnus v0.12/Emacs 19.34 Xref: main.gmane.org gmane.emacs.gnus.general:12549 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12549 --Multipart_Tue_Oct__7_13:39:36_1997-1 Content-Type: text/plain; charset=US-ASCII Well, I asked for it and I got it. Thanks Lars! Unfortunately, the system that generates these damn To lines splits it into several To headers, most of which are to long and the long-to element only gets rid of the first one. The attached kludge to gnus-article-hide-header (gnus-art.el) fixes it, but given the recent discussion about garbage generation and loops in washing, I'm not sure it's the best way to do this. -- Dave Goldberg Post: The Mitre Corporation\MS B305\202 Burlington Rd.\Bedford, MA 01730 Phone: 781-271-3887 Email: dsg@mitre.org --Multipart_Tue_Oct__7_13:39:36_1997-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="gnus-art.diff" Content-Transfer-Encoding: 7bit *** gnus-art.el.orig Tue Oct 7 12:16:48 1997 --- gnus-art.el Tue Oct 7 13:16:04 1997 *************** *** 752,758 **** (defun gnus-article-hide-header (header) (save-excursion (goto-char (point-min)) ! (when (re-search-forward (concat "^" header ":") nil t) (gnus-article-hide-text-type (progn (beginning-of-line) (point)) (progn --- 752,758 ---- (defun gnus-article-hide-header (header) (save-excursion (goto-char (point-min)) ! (while (re-search-forward (concat "^" header ":") nil t) (gnus-article-hide-text-type (progn (beginning-of-line) (point)) (progn *************** *** 760,766 **** (if (re-search-forward "^[^ \t]" nil t) (match-beginning 0) (point-max))) ! 'boring-headers)))) ;; Written by Per Abrahamsen . (defun article-treat-overstrike () --- 760,767 ---- (if (re-search-forward "^[^ \t]" nil t) (match-beginning 0) (point-max))) ! 'boring-headers) ! (forward-char -1)))) ;; Written by Per Abrahamsen . (defun article-treat-overstrike () --Multipart_Tue_Oct__7_13:39:36_1997-1--