Mercurial > emacs
changeset 12859:90c22a02c12b
(sc-attribs-extract-namestring): If name has <...>,
treat everything before that as the full name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Aug 1995 12:30:59 +0000 |
| parents | 63ad7aaa9e35 |
| children | be1206fc13ed |
| files | lisp/mail/supercite.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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