diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-15 12:30:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-15 12:30:59 +0000 |
| commit | dcb38be88e968b88c61d86ffc6d958c0957309ec (patch) | |
| tree | 72f815bf9513af8d32ff8ad38fac15670be528ee /lisp/mail/supercite.el | |
| parent | 6e4bd6ae29e88b72bc4446f4e3c7166c9b95d33f (diff) | |
| download | emacs-dcb38be88e968b88c61d86ffc6d958c0957309ec.tar.gz emacs-dcb38be88e968b88c61d86ffc6d958c0957309ec.tar.bz2 emacs-dcb38be88e968b88c61d86ffc6d958c0957309ec.zip | |
(sc-attribs-extract-namestring): If name has <...>,
treat everything before that as the full name.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 9 |
1 files changed, 7 insertions, 2 deletions
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. <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 |