long-to boring header

[dsg@linus.mitre.org (David S. Goldberg)]

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

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


[-- Attachment #2: gnus-art.diff --]
[-- Type: application/octet-stream, Size: 1148 bytes --]

*** 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 <amanda@iesd.auc.dk>.
  (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 <amanda@iesd.auc.dk>.
  (defun article-treat-overstrike ()