Commit dcb38be8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

treat everything before that as the full name.
parent 6e4bd6ae
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment