From: Richard M. Stallman Date: Tue, 15 Aug 1995 12:30:59 +0000 (+0000) Subject: (sc-attribs-extract-namestring): If name has <...>, X-Git-Tag: emacs-19.34~3001 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcb38be88e968b88c61d86ffc6d958c0957309ec;p=emacs.git (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 6a5dc746343..5c5d7efd0f7 100644 --- 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. ;; 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