🚀 go-pugleaf

On 8 Aug 1994 00:25:19 -0400, amanda@iesd.auc.dk (Per Abrahamsen) said:

> 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.

I've also been using a similar piece of code that I got from somebody
else.  It looks perhaps a little better written, so I'll include it
below for comparison.

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

Yes.

> Should it be default?

Yes.

;; Display posters' real names, not their e-mail addresses.

(defun gnus-lines-and-real-name (header)
  (let ((lines (nntp-header-lines header))
	(from (nntp-header-from header))
	real-name L)
    ;; locate the real name if any in the From: header
    (setq real-name
	  (cond ((string-match "^[ \t]*\\([^<>]+\\)<\\([^>]+\\)>" from)
		 ;; Real Name <me@machine>
		 (substring from (match-beginning 1) (match-end 1)))
		((string-match "^\\([^()]+\\)([ \t]*\\(.+\\))" from)
		 ;; me@machine (Real Name)
		 (substring from (match-beginning 2) (match-end 2)))
		(t from)))
    ;; delete certain chars from the name; for example, it is common
    ;; for the name to be "in quotes"
    (while (setq L (string-match "[][\"\t]" real-name))
      (setq real-name
	    (concat (substring real-name 0 L) (substring real-name (1+ L)))))
    ;; format and return a string containing the lines and real name
    (substring (format "%3d: %-16s" lines real-name) 0 21)))

(setq gnus-optional-headers (function gnus-lines-and-real-name))
-- 
John Interrante <interran@uluru.stanford.edu>