mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
treat everything before that as the full name.
This commit is contained in:
Richard M. Stallman 1995-08-15 12:30:59 +00:00
parent 6e4bd6ae29
commit dcb38be88e
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/supercite.el
View file

@ -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