User: youngs Date: 05/10/29 08:47:40 Modified: packages/xemacs-packages/supercite ChangeLog supercite.el Log: 2005-10-29 Steve Youngs <steve(a)sxemacs.org&gt; * supercite.el (sc-extract-address-components): New. (sc-attribs-extract-namestring): Use it. From: Nelson Ferreira <nelson.ferreira(a)ieee.org&gt; Revision Changes Path 1.21 +6 -0 XEmacs/packages/xemacs-packages/supercite/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/supercite/ChangeLog,v retrieving revision 1.20 retrieving revision 1.21 diff -u -p -r1.20 -r1.21 --- ChangeLog 2003/10/31 17:10:26 1.20 +++ ChangeLog 2005/10/29 06:47:39 1.21 ＠＠ -1,3 +1,9 ＠＠ +2005-10-29 Steve Youngs <steve(a)sxemacs.org&gt; + + * supercite.el (sc-extract-address-components): New. + (sc-attribs-extract-namestring): Use it. + From: Nelson Ferreira <nelson.ferreira(a)ieee.org&gt; + 2003-10-31 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.20 released. 1.13 +9 -1 XEmacs/packages/xemacs-packages/supercite/supercite.el Index: supercite.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/supercite/supercite.el,v retrieving revision 1.12 retrieving revision 1.13 diff -u -p -r1.12 -r1.13 --- supercite.el 2001/08/14 07:26:20 1.12 +++ supercite.el 2005/10/29 06:47:39 1.13 ＠＠ -35,6 +35,7 ＠＠ ;; |Mail and news reply citation package ;; |1993/09/22 18:58:46|3.1| +;; njsf 2005/10/28: Added customize for extract address components ;; sb 1997/May/07: Add autoloads ;; sb 1997/Apr/02: Added attribution function sc-header-author-email-writes ;; which gives attribution in the form - ＠＠ -96,6 +97,13 ＠＠ It should take as its only parameter an :type 'function :group 'supercite) +(defcustom sc-extract-address-components 'mail-extract-address-components + "*Function for extracting address components from a From header. +One pre-defined function exist: `mail-extract-address-components'." +:group 'supercite +:type '(radio (function-item mail-extract-address-components) + (function :tag "Other"))) + (defcustom sc-auto-fill-region-p t "*If non-nil, automatically fill each paragraph after it has been cited." :type 'boolean ＠＠ -1079,7 +1087,7 ＠＠ substring." (defun sc-attribs-extract-namestring (from) "Extract the name string from FROM. This should be the author's full name minus an optional title." - (let ((from-parts (mail-extract-address-components from))) + (let ((from-parts (funcall sc-extract-address-components from))) (or (car from-parts) (and (cadr from-parts) (sc-attribs-emailname (cadr from-parts)))