Re: Name washing

[Toby Speight <Toby.Speight@streapadair.freeserve.co.uk>]

Paul> Paul Stevenson <URL:mailto:spaul@mail.phy.ornl.gov>

0> In article <m2puw9i6uk.lavish@bethe.phy.ornl.gov>, Paul wrote:

Paul> I have in mind turning things like "Lars Magne Ingebrigtsen
Paul> <larsi@gnus.org>" which one gets as %n in
Paul> gnus-summary-line-format into a shorter form such as "L M
Paul> Ingebrigtsen" so that people's full names can appear without
Paul> making the field too wide.

I have the following, to use the full names out of the BBDB, prefixed
with '*' (or a marker char from their notes).  It works with the "To:"
hack if you get nnmail to re-write NOV entries for your own sent mail.

(defun bbdb-extract-address-components (from)
  "Get the real name of FROM from the BBDB.\n
Meant for use as the value of gnus-extract-address-components."
  (if (string-match "^=> " from)
      (let ((components (bbdb-extract-address-components (substring from 3))))
        (cons (concat "=>" (car components))
              (cdr components)))
    (let* ((mail-extr-ignore-single-names t)
           (data (condition-case ()
                     (mail-extract-address-components from)
                   (error nil)))
           (name (car data))
           (net (car (cdr data)))
           (net-canon (if (and net bbdb-canonicalize-net-hook)
                          (bbdb-canonicalize-address net)
                        net))
           (record (and data (bbdb-search-simple name net-canon)))
           string L)

      (if (and record name (member (downcase name) (bbdb-record-net record)))
          ;; bogon!
          (setq record nil))

      (setq name (or (and bbdb/gnus-header-prefer-real-names
                          (or (and bbdb/gnus-header-show-bbdb-names record
                                   (bbdb-record-name record))
                              name
                              (car (gnus-extract-address-components from))))
                     net))
      (list (format "%s%s"
                    (if (and record bbdb/gnus-mark-known-posters)
                        (or (bbdb-record-getprop record bbdb-message-marker-field) "*")
                      " ")
                    (or name from))
            net))))

(setq gnus-extract-address-components 'bbdb-extract-address-components)