🚀 go-pugleaf

I have been using this code for a year or so.   It gives you the real
name in the subject summary buffer, instead of the email address.  
I find it quite pleasant.  

Do you think it would be a good idea to include it in the gnus
distribution? 

Should it be default?

------- Start of forwarded message -------
Path: iesd.auc.dk!news.uni-c.dk!sunic!trane.uninett.no!eunet.no!nuug!EU.net!uunet!news.va.pubnix.com!news!djm
From: djm@va.pubnix.com (David J. MacKenzie)
Newsgroups: gnu.emacs.gnus
Subject: Re: Change display of article header line in gnus?
Date: 05 Aug 1994 16:37:21 GMT
Organization: UUNET Technologies
Lines: 20
Distribution: world
Message-ID: <DJM.94Aug5123721@catapult.va.pubnix.com>
References: <MARTINW.94Aug5161608@muppet60.cs.chalmers.se>
NNTP-Posting-Host: catapult.va.pubnix.com
In-reply-to: martinw@cs.chalmers.se's message of 5 Aug 1994 14:16:28 GMT

I saved this years ago.

;;;From: jwz@lucid.com (Jamie Zawinski)
;;;I prefer to see real names instead of net addresses in the Subject listing.
;;;Here is code that does that if possible.
(setq gnus-optional-headers 'my-gnus-lines-and-real-name)
(defun my-gnus-lines-and-real-name (header)
  (let* ((length 22)
	 (lines (nntp-header-lines header))
	 (from (nntp-header-from header))
	 (name (cond ((string-match "^[ \t]*\\([^<>]+\\)<\\([^>]+\\)>" from)
		      (substring from (match-beginning 1) (match-end 1)))
		     ((string-match "^\\([^()]+\\)([ \t]*\\(.+\\))" from)
		      (substring from (match-beginning 2) (match-end 2)))))
;;;	 (string (format "%3d:%s <%s>" lines (or name from) (if name from "")))
	 (string (format "%3d:%s" lines (or name from)))
	 (L (length string)))
    (cond ((> L length) (substring string 0 length))
	  ((< L length) (concat string (make-string (- length L) ? )))
	  (t string))))

------- End of forwarded message -------