# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808489859 0
# Node ID 90c22a02c12b37e294b45932da7bb7af7a45192c
# Parent  63ad7aaa9e356b2a1494842f8fda1e1dcceb4ac2
(sc-attribs-extract-namestring): If name has <...>,
treat everything before that as the full name.

diff -r 63ad7aaa9e35 -r 90c22a02c12b lisp/mail/supercite.el
--- a/lisp/mail/supercite.el	Tue Aug 15 02:33:42 1995 +0000
+++ b/lisp/mail/supercite.el	Tue Aug 15 12:30:59 1995 +0000
@@ -1,5 +1,7 @@
 ;;; supercite.el --- minor mode for citing mail and news replies
 
+;; Copyright (C) 1993 Free Software Foundation, Inc.
+
 ;; Author: 1993 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com>
 ;; Maintainer:    supercite-help@anthem.nlm.nih.gov
 ;; Created:       February 1993
@@ -9,8 +11,6 @@
 
 ;; supercite.el revision: 3.54
 
-;; Copyright (C) 1993 Barry A. Warsaw
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -893,6 +893,11 @@
 This should be the author's full name minus an optional title."
   (let ((namestring
 	 (or
+	  ;; If there is a <...> in the name,
+	  ;; treat everything before that as the full name.
+	  ;; Even if it contains parens, use the whole thing.
+	  (and (string-match " *<.*>" from 0)
+	       (sc-name-substring from 0 (match-beginning 0) 0))
 	  (sc-name-substring
 	   from (string-match "(.*)" from 0) (match-end 0) 1)
 	  (sc-name-substring