(sc-attribs-extract-namestring): If name has <...>,

treat everything before that as the full name.

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 6a5dc7463433c715ae875cb7d0a41715b4ee4719..5c5d7efd0f720a8feb60dcac2b73dc24aefbac79 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -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 @@ substring."
 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